278 lines
6.5 KiB
ObjectPascal
278 lines
6.5 KiB
ObjectPascal
unit U_BDKuWei;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
|
||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
||
|
||
type
|
||
TfrmBDKuWei = class(TForm)
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
DS_MainSel: TDataSource;
|
||
CDS_MainSel: TClientDataSet;
|
||
cxGridPopupMenu4: TcxGridPopupMenu;
|
||
cxGrid3: TcxGrid;
|
||
Tv3: TcxGridDBTableView;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
v3Column1: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
v3Column2: TcxGridDBColumn;
|
||
Panel2: TPanel;
|
||
SMID: TEdit;
|
||
Button2: TButton;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
Label12: TLabel;
|
||
CDS_Main: TClientDataSet;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
Edit1: TEdit;
|
||
DS_FHSQ: TDataSource;
|
||
CDS_FHSQ: TClientDataSet;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
Button3: TButton;
|
||
btn1: TButton;
|
||
lbl1: TLabel;
|
||
edt1: TEdit;
|
||
Tv3Column1: TcxGridDBColumn;
|
||
ADOQueryTemp1: TADOQuery;
|
||
Tv3Column2: TcxGridDBColumn;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure SMIDKeyPress(Sender: TObject; var Key: Char);
|
||
procedure Button2Click(Sender: TObject);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure Button3Click(Sender: TObject);
|
||
procedure btn1Click(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
FSMStr, JXFlag, FSubId, FKWNo: string;
|
||
FFHPS, FSQPS: integer;
|
||
procedure InitFHMX();
|
||
procedure SaveCK();
|
||
procedure InitFHPS();
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmBDKuWei: TfrmBDKuWei;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_Fun, MMSystem, U_CPFHSQListSel, U_FinishedClothKCList_SMCK,
|
||
U_FinishedClothInList_KW, U_KuWeiManage_KW; //, U_CKProductBCPKCList
|
||
|
||
//var
|
||
// frmPBKCListSel: TfrmCKProductBCPKCListPB;
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmBDKuWei.InitFHPS(); //<2F>ѳ<EFBFBD><D1B3><EFBFBD>ƥ<EFBFBD><C6A5>
|
||
begin
|
||
|
||
Edit1.Text := IntToStr(FFHPS);
|
||
|
||
end;
|
||
|
||
procedure TfrmBDKuWei.SaveCK(); //<2F><><EFBFBD><EFBFBD>
|
||
var
|
||
maxno, SMFlag, KYCKFlag: string;
|
||
FFQty: Integer;
|
||
begin
|
||
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('UPDATE CK_Cloth_CR Set ');
|
||
sql.add(' KuWei= ''' + Trim(edt1.text) + '''');
|
||
sql.add(' ,FKWNo= ''' + Trim(FKWNo) + '''');
|
||
sql.Add(' where CK_Cloth_CR.JYID=' + Quotedstr(Trim(FSMStr)));
|
||
sql.Add('and CK_Cloth_CR.CRFlag=''<27><><EFBFBD><EFBFBD>'' ');
|
||
// showmessage(SQL.Text);
|
||
ExecSQL;
|
||
end;
|
||
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
FFHPS := FFHPS + 1;
|
||
|
||
Exit;
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
application.MessageBox('<27><EFBFBD>λʧ<CEBB>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBDKuWei.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmBDKuWei.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmBDKuWei := nil;
|
||
end;
|
||
|
||
procedure TfrmBDKuWei.FormShow(Sender: TObject);
|
||
begin
|
||
SMID.SetFocus;
|
||
ReadCxGrid('<27><EFBFBD>λ', Tv3, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
end;
|
||
|
||
procedure TfrmBDKuWei.InitFHMX(); //<2F><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ
|
||
var
|
||
MFHPS: integer;
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * ');
|
||
sql.Add(' from CK_Cloth_CR ');
|
||
sql.Add(' where FKWNo=' + QuotedStr(FKWNo));
|
||
// ShowMessage(sql.Text);
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTemp, CDS_MainSel);
|
||
SInitCDSData20(ADOQueryTemp, CDS_MainSel);
|
||
if CDS_MainSel.IsEmpty = False then
|
||
MFHPS := Tv3.DataController.Summary.FooterSummaryValues[0]
|
||
else
|
||
MFHPS := 0;
|
||
|
||
Edit1.Text := IntToStr(MFHPS);
|
||
|
||
end;
|
||
|
||
procedure TfrmBDKuWei.SMIDKeyPress(Sender: TObject; var Key: Char); //ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
begin
|
||
if Key = #13 then
|
||
begin
|
||
FSMStr := Trim(SMID.Text);
|
||
SMID.Text := '';
|
||
|
||
SaveCK();
|
||
InitFHPS();
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBDKuWei.Button2Click(Sender: TObject);
|
||
begin
|
||
Close;
|
||
WriteCxGrid('<27><EFBFBD>λ', Tv3, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
end;
|
||
|
||
procedure TfrmBDKuWei.Button1Click(Sender: TObject); //ѡ<><D1A1><EFBFBD>뵥
|
||
var
|
||
MKey: Char;
|
||
begin
|
||
MKey := #13;
|
||
try
|
||
frmFHSQListSel := TfrmFHSQListSel.Create(self);
|
||
with frmFHSQListSel do
|
||
begin
|
||
if ShowModal = 1 then
|
||
begin
|
||
SMID.Text := Trim(Order_Main.fieldbyname('FHMainId').AsString);
|
||
SMIDKeyPress(SMID, MKey);
|
||
end;
|
||
end;
|
||
finally
|
||
frmFHSQListSel.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBDKuWei.Button3Click(Sender: TObject);
|
||
var
|
||
MKey: Char;
|
||
begin
|
||
|
||
MKey := #13;
|
||
if edt1.Text = '' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>λ<EFBFBD><CEBB>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
try
|
||
frmFinishedClothInList_KW := TfrmFinishedClothInList_KW.Create(self);
|
||
with frmFinishedClothInList_KW do
|
||
begin
|
||
|
||
if ShowModal = 1 then
|
||
begin
|
||
with frmFinishedClothInList_KW.CDS_Main do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Fieldbyname('ssel').AsBoolean then
|
||
begin
|
||
SMID.Text := Trim(Fieldbyname('JYID').AsString);
|
||
SMIDKeyPress(SMID, MKey);
|
||
Sleep(200);
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
// if ShowModal = 1 then
|
||
// begin
|
||
// while frmFinishedClothInList_KW.CDS_Main.Locate('SSel', true, []) do
|
||
// begin
|
||
// self.SMID.Text := Trim(frmFinishedClothInList_KW.CDS_Main.fieldbyname('JYID').AsString);
|
||
// self.SMIDKeyPress(self.SMID, MKey);
|
||
// frmFinishedClothInList_KW.CDS_Main.Delete;
|
||
// sleep(500);
|
||
// end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmFinishedClothInList_KW.Free;
|
||
end;
|
||
InitFHPS();
|
||
InitFHMX();
|
||
|
||
end;
|
||
|
||
procedure TfrmBDKuWei.btn1Click(Sender: TObject);
|
||
begin
|
||
try
|
||
frmKuWeiManage_KW := TfrmKuWeiManage_KW.Create(self);
|
||
with frmKuWeiManage_KW do
|
||
begin
|
||
|
||
if ShowModal = 1 then
|
||
begin
|
||
while frmKuWeiManage_KW.CDS_HZ.Locate('SSel', true, []) do
|
||
begin
|
||
self.edt1.Text := Trim(frmKuWeiManage_KW.CDS_HZ.fieldbyname('KWNo').AsString);
|
||
frmKuWeiManage_KW.CDS_HZ.Delete;
|
||
end;
|
||
end;
|
||
end;
|
||
if GetLSNo(ADOQueryTemp1, FKWNo, 'KW', 'CK_Cloth_CR', 4, 1) = False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
// ShowMessage(FKWNo);
|
||
finally
|
||
frmKuWeiManage_KW.Free;
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|