371 lines
8.8 KiB
ObjectPascal
371 lines
8.8 KiB
ObjectPascal
|
unit U_BQDY;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
|||
|
|
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
|
|||
|
|
cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxStyles, dxSkinsCore,
|
|||
|
|
dxSkinsDefaultPainters, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit,
|
|||
|
|
cxNavigator, dxDateRanges, Data.DB, cxDBData, cxGridLevel, cxClasses,
|
|||
|
|
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|||
|
|
cxGrid, Vcl.ExtCtrls, Vcl.StdCtrls, Datasnap.DBClient, Data.Win.ADODB,
|
|||
|
|
dxScrollbarAnnotations;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmBQDY = class(TForm)
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
TV1: TcxGridDBTableView;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
ADOQueryMain: TADOQuery;
|
|||
|
|
ADOQueryTemp: TADOQuery;
|
|||
|
|
CDS_Main: TClientDataSet;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
TV1Column1: TcxGridDBColumn;
|
|||
|
|
TV1Column2: TcxGridDBColumn;
|
|||
|
|
TV1Column3: TcxGridDBColumn;
|
|||
|
|
TV1Column4: TcxGridDBColumn;
|
|||
|
|
cxStyleRepository1: TcxStyleRepository;
|
|||
|
|
cxStyle1: TcxStyle;
|
|||
|
|
Panel2: TPanel;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
Label6: TLabel;
|
|||
|
|
Label7: TLabel;
|
|||
|
|
Label8: TLabel;
|
|||
|
|
Label9: TLabel;
|
|||
|
|
Label10: TLabel;
|
|||
|
|
Label11: TLabel;
|
|||
|
|
Label12: TLabel;
|
|||
|
|
Button1: TButton;
|
|||
|
|
Label13: TLabel;
|
|||
|
|
Label14: TLabel;
|
|||
|
|
Label15: TLabel;
|
|||
|
|
Label16: TLabel;
|
|||
|
|
MJXH: TEdit;
|
|||
|
|
MJQty4: TEdit;
|
|||
|
|
MJLen: TEdit;
|
|||
|
|
MJMaoZ: TEdit;
|
|||
|
|
ADOCmd: TADOQuery;
|
|||
|
|
ADOTmp: TADOQuery;
|
|||
|
|
Button2: TButton;
|
|||
|
|
ADOQueryPrint: TADOQuery;
|
|||
|
|
Button3: TButton;
|
|||
|
|
Label17: TLabel;
|
|||
|
|
Label18: TLabel;
|
|||
|
|
Label19: TLabel;
|
|||
|
|
Label20: TLabel;
|
|||
|
|
Button4: TButton;
|
|||
|
|
Edit1: TEdit;
|
|||
|
|
Label21: TLabel;
|
|||
|
|
Label22: TLabel;
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure Button1Click(Sender: TObject);
|
|||
|
|
procedure Button2Click(Sender: TObject);
|
|||
|
|
procedure Button3Click(Sender: TObject);
|
|||
|
|
procedure MJXHKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure MJQty4KeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure MJLenKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure MJMaoZKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure Button4Click(Sender: TObject);
|
|||
|
|
procedure Edit1Click(Sender: TObject);
|
|||
|
|
private
|
|||
|
|
{ Private declarations }
|
|||
|
|
PState: Integer;
|
|||
|
|
FFFMJID: string;
|
|||
|
|
function SaveData(): Boolean;
|
|||
|
|
// procedure PrtData(FFFMJID: string);
|
|||
|
|
public
|
|||
|
|
{ Public declarations }
|
|||
|
|
FBCIOID, FC_Name, FC_Spec, FC_Width, FC_GramWeight, FC_Code, FC_Color, FC_ColorNo, FC_StyleNo, FC_Pattern, FC_Composition, FFromcontractNO, FFromC_ConNo, FFromoperationNO, FFromPurNo,FFromBuyConNoHZ: string;
|
|||
|
|
FPiece: double;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmBQDY: TfrmBQDY;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint;
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
//procedure TfrmBQDY.PrtData(FFFMJID: string);
|
|||
|
|
//var
|
|||
|
|
// fPrintFile: string;
|
|||
|
|
// Txt, fImagePath: string;
|
|||
|
|
// Moudle: THandle;
|
|||
|
|
// Makebar: TMakebar;
|
|||
|
|
// Mixtext: TMixtext;
|
|||
|
|
//begin
|
|||
|
|
// with ADOQueryPrint do
|
|||
|
|
// begin
|
|||
|
|
// Close;
|
|||
|
|
// SQL.Clear;
|
|||
|
|
// sql.Add('select A.*,B.* ');
|
|||
|
|
// sql.Add(' from WFB_MJJY A');
|
|||
|
|
// sql.Add(' inner join BS_Cloth_IO B On A.BCIOID=B.BCIOID');
|
|||
|
|
// SQL.Add(' where A.MJID=''' + Trim(FFFMJID) + '''');
|
|||
|
|
// Open;
|
|||
|
|
// end;
|
|||
|
|
//
|
|||
|
|
//end;
|
|||
|
|
|
|||
|
|
function TfrmBQDY.SaveData(): Boolean;
|
|||
|
|
var
|
|||
|
|
maxno, FMJID: string;
|
|||
|
|
begin
|
|||
|
|
// if PState = 1 then
|
|||
|
|
// FMJID := ''
|
|||
|
|
// else if PState = 2 then
|
|||
|
|
// FMJID := Trim(CDS_MJID.fieldbyname('MJID').AsString)
|
|||
|
|
// else if PState < 1 then
|
|||
|
|
// Exit;
|
|||
|
|
|
|||
|
|
result := false;
|
|||
|
|
if PState = 2 then
|
|||
|
|
begin
|
|||
|
|
FMJID := Trim(CDS_Main.fieldbyname('MJID').AsString)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
try
|
|||
|
|
ADOCmd.Connection.BeginTrans;
|
|||
|
|
// ADOCmd.DisableControls;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add('select * from WFB_MJJY where MJId=''' + Trim(FMJID) + '''');
|
|||
|
|
// showmessage(sql.text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
// if Trim(FMJID) = '' then
|
|||
|
|
// begin
|
|||
|
|
Append;
|
|||
|
|
if GetLSNo(ADOTmp, maxno, 'MJ', 'WFB_MJJY', 4, 1) = False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
// end
|
|||
|
|
// else
|
|||
|
|
// begin
|
|||
|
|
// maxno := Trim(FMJID);
|
|||
|
|
// Edit;
|
|||
|
|
// end;
|
|||
|
|
FieldByName('MJID').Value := Trim(maxno);
|
|||
|
|
FieldByName('BCIOID').Value := Trim(FBCIOID);
|
|||
|
|
FieldByName('MJXH').Value := Trim(MJXH.Text);
|
|||
|
|
FieldByName('MJQty4').Value := Trim(MJQty4.Text);
|
|||
|
|
FieldByName('MJLen').Value := strtofloatdef(Trim(MJLen.Text), 0);
|
|||
|
|
FieldByName('MJMaoZ').Value := strtofloatdef(Trim(MJMaoZ.Text), 0);
|
|||
|
|
FieldByName('CKflag').Value := '<27><><EFBFBD><EFBFBD>';
|
|||
|
|
FieldByName('FillTime').Value := SGetServerDateTime(ADOTmp);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
FFFMJID := Trim(maxno);
|
|||
|
|
ADOCmd.Connection.CommitTrans;
|
|||
|
|
Result := True;
|
|||
|
|
except
|
|||
|
|
Result := False;
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
// ADOCmd.EnableControls;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBQDY.Button1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if SaveData() then
|
|||
|
|
begin
|
|||
|
|
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
|
|||
|
|
//ModalResult:=1;
|
|||
|
|
// Exit;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
exit;
|
|||
|
|
Button2.Click;
|
|||
|
|
|
|||
|
|
if Trim(Edit1.Text) = '<27><>' then
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
|||
|
|
with frmLabelPrint do
|
|||
|
|
begin
|
|||
|
|
FLMType := 'bqPrint';
|
|||
|
|
// FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
|
|||
|
|
FFiltration1 := QuotedStr(Trim(FFFMJID));
|
|||
|
|
// FFiltration1 := FFFMJID ;
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
// Self.InitGrid();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmLabelPrint.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
|
|||
|
|
// if Key = #13 then
|
|||
|
|
// begin
|
|||
|
|
MJXH.SetFocus;
|
|||
|
|
// end;
|
|||
|
|
// PrtData(FFFMJID);
|
|||
|
|
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBQDY.Button2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOQueryMain.DisableControls;
|
|||
|
|
with ADOQueryMain do
|
|||
|
|
begin
|
|||
|
|
Filtered := False;
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select ');
|
|||
|
|
|
|||
|
|
sql.Add(' A.* from WFB_MJJY A where BCIOID=''' + Trim(FBCIOID) + '''');
|
|||
|
|
sql.Add(' order by FillTime desc');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
|||
|
|
SCreateCDS(ADOQueryMain, CDS_Main);
|
|||
|
|
SInitCDSData(ADOQueryMain, CDS_Main);
|
|||
|
|
|
|||
|
|
finally
|
|||
|
|
ADOQueryMain.EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBQDY.Button3Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if CDS_Main.IsEmpty then
|
|||
|
|
exit;
|
|||
|
|
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ָܻ<DCBB><D6B8><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
|||
|
|
Exit;
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.add('insert into WFB_MJJY_DEL select * from WFB_MJJY where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' ');
|
|||
|
|
sql.Add('DELETE from WFB_MJJY where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' ');
|
|||
|
|
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
Button2.Click;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBQDY.Button4Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
|||
|
|
with frmLabelPrint do
|
|||
|
|
begin
|
|||
|
|
FLMType := 'bqPrint';
|
|||
|
|
// FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
|
|||
|
|
FFiltration1 := QuotedStr(Trim(CDS_Main.fieldbyname('MJID').AsString));
|
|||
|
|
// FFiltration1 := FFFMJID ;
|
|||
|
|
if ShowModal = 1 then
|
|||
|
|
begin
|
|||
|
|
// Self.InitGrid();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmLabelPrint.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBQDY.Edit1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Trim(Edit1.Text) = '' then
|
|||
|
|
begin
|
|||
|
|
Edit1.Text := '<27><>';
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Edit1.Text := '';
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBQDY.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Label1.Caption := '<27><><EFBFBD>ⵥ<EFBFBD><E2B5A5>:' + FBCIOID;
|
|||
|
|
Label17.Caption := '<27><>ͬ<EFBFBD><CDAC>:' + FFromPurNo;
|
|||
|
|
Label18.Caption := '<27><>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>:' + FFromcontractNO;
|
|||
|
|
Label19.Caption := '<27><>ϸ<EFBFBD><CFB8>ͬ<EFBFBD><CDAC>:' + FFromC_ConNo;
|
|||
|
|
Label20.Caption := '<27><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>:' + FFromoperationNO;
|
|||
|
|
Label22.Caption := '<27>ܿͻ<DCBF><CDBB><EFBFBD><EFBFBD><EFBFBD>:' + FFromBuyConNoHZ;
|
|||
|
|
Label2.Caption := 'Ʒ<><C6B7>:' + FC_Name;
|
|||
|
|
Label3.Caption := '<27><><EFBFBD><EFBFBD>:' + FC_Spec;
|
|||
|
|
Label4.Caption := '<27>ŷ<EFBFBD>:' + FC_Width;
|
|||
|
|
Label5.Caption := '<27><><EFBFBD><EFBFBD>:' + FC_GramWeight;
|
|||
|
|
Label6.Caption := '<27>ɷ<EFBFBD>:' + FC_Composition;
|
|||
|
|
Label7.Caption := '<27><><EFBFBD><EFBFBD>:' + FC_Code;
|
|||
|
|
Label8.Caption := 'ƥ<><C6A5>:' + floattostr(FPiece);
|
|||
|
|
Label9.Caption := '<27><>ɫ:' + FC_Color;
|
|||
|
|
Label10.Caption := 'ɫ<><C9AB>:' + FC_ColorNo;
|
|||
|
|
Label11.Caption := '<27><><EFBFBD><EFBFBD>:' + FC_StyleNo;
|
|||
|
|
Label12.Caption := '<27><><EFBFBD><EFBFBD>:' + FC_Pattern;
|
|||
|
|
|
|||
|
|
Button2.Click;
|
|||
|
|
MJXH.SetFocus;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBQDY.MJLenKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
begin
|
|||
|
|
if Key = #13 then
|
|||
|
|
begin
|
|||
|
|
MJMaoZ.SetFocus;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBQDY.MJMaoZKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
begin
|
|||
|
|
if Key = #13 then
|
|||
|
|
begin
|
|||
|
|
Button1.Click;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBQDY.MJQty4KeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
begin
|
|||
|
|
if Key = #13 then
|
|||
|
|
begin
|
|||
|
|
MJLen.SetFocus;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmBQDY.MJXHKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
begin
|
|||
|
|
if Key = #13 then
|
|||
|
|
begin
|
|||
|
|
MJQty4.SetFocus;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|
|||
|
|
|