615 lines
15 KiB
ObjectPascal
615 lines
15 KiB
ObjectPascal
unit U_JTSJY220318;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DB, ADODB, Buttons,
|
||
cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||
cxEdit, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
|
||
DBClient, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
|
||
|
||
type
|
||
TfrmJTSJY220318 = class(TForm)
|
||
CPInfo: TRichEdit;
|
||
ADOQueryTemp: TADOQuery;
|
||
Panel3: TPanel;
|
||
Panel4: TPanel;
|
||
Panel1: TPanel;
|
||
Label2: TLabel;
|
||
Panel2: TPanel;
|
||
Button2: TButton;
|
||
SQty: TEdit;
|
||
Label4: TLabel;
|
||
Button3: TButton;
|
||
DQty: TEdit;
|
||
Panel8: TPanel;
|
||
Panel9: TPanel;
|
||
Label1: TLabel;
|
||
ZGH: TEdit;
|
||
Label3: TLabel;
|
||
ZGL: TEdit;
|
||
Label5: TLabel;
|
||
Label7: TLabel;
|
||
ZGQty: TEdit;
|
||
Label9: TLabel;
|
||
Panel5: TPanel;
|
||
BZX: TEdit;
|
||
BZB: TEdit;
|
||
Label6: TLabel;
|
||
Label8: TLabel;
|
||
Label10: TLabel;
|
||
Panel6: TPanel;
|
||
btnSampleSel: TButton;
|
||
Button1: TButton;
|
||
Panel10: TPanel;
|
||
cxGrid3: TcxGrid;
|
||
Tv3: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
v3Column1: TcxGridDBColumn;
|
||
v3Column2: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
Panel7: TPanel;
|
||
SpeedButton1: TSpeedButton;
|
||
SpeedButton2: TSpeedButton;
|
||
SpeedButton3: TSpeedButton;
|
||
SpeedButton4: TSpeedButton;
|
||
SpeedButton5: TSpeedButton;
|
||
SpeedButton6: TSpeedButton;
|
||
SpeedButton7: TSpeedButton;
|
||
SpeedButton8: TSpeedButton;
|
||
SpeedButton9: TSpeedButton;
|
||
SpeedButton10: TSpeedButton;
|
||
SpeedButton11: TSpeedButton;
|
||
SpeedButton12: TSpeedButton;
|
||
v3Column4: TcxGridDBColumn;
|
||
Panel11: TPanel;
|
||
Label11: TLabel;
|
||
Label12: TLabel;
|
||
SJZL: TEdit;
|
||
ADOCmd: TADOQuery;
|
||
ClientDataSet1: TClientDataSet;
|
||
DataSource1: TDataSource;
|
||
Button4: TButton;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure btnSampleSelClick(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure ZGHClick(Sender: TObject);
|
||
procedure ZGLClick(Sender: TObject);
|
||
procedure BZXClick(Sender: TObject);
|
||
procedure BZBClick(Sender: TObject);
|
||
procedure ZGQtyClick(Sender: TObject);
|
||
procedure SQtyClick(Sender: TObject);
|
||
procedure SpeedButton1Click(Sender: TObject);
|
||
procedure SpeedButton12Click(Sender: TObject);
|
||
procedure Button2Click(Sender: TObject);
|
||
procedure Button3Click(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure Button4Click(Sender: TObject);
|
||
private
|
||
ZGKS,SJKS,ZGZL,ZXZL,FactoryName,Y_CodeName ,Y_Spec,BatchNo,FFFMJID:String;
|
||
function SaveData(DataType:String): Boolean;
|
||
procedure InitGrid();
|
||
procedure InitJP(FName:string);
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmJTSJY220318: TfrmJTSJY220318;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink, U_RTFun,U_CPSel,U_iniParam,U_SCPerson;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmJTSJY220318.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmJTSJY220318:=nil;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.btnSampleSelClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmCPSel:=TfrmCPSel.Create(Self);
|
||
with frmCPSel do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
CPInfo.Hint:=FHMainId;
|
||
end;
|
||
end;
|
||
finally
|
||
frmCPSel.Close;
|
||
end;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from YT_Plan_Main where Mainid='''+Trim(CPInfo.Hint)+'''');
|
||
Open;
|
||
end;
|
||
with ADOQueryTemp do
|
||
begin
|
||
FactoryName:=Trim(fieldbyname('FactoryName').AsString);
|
||
Y_CodeName:=Trim(fieldbyname('Y_CodeName').AsString);
|
||
Y_Spec:=Trim(fieldbyname('Y_Spec').AsString);
|
||
BatchNo:=Trim(fieldbyname('BatchNo').AsString);
|
||
ZGKS:=Trim(fieldbyname('ZGKS').AsString);
|
||
SJKS:=Trim(fieldbyname('SJKS').AsString);
|
||
ZGZL:=Trim(fieldbyname('ZGZL').AsString);
|
||
ZXZL:=Trim(fieldbyname('ZXZL').AsString);
|
||
end;
|
||
ADOQueryTemp.Close;
|
||
CPInfo.Text:= ' '+ #13
|
||
+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+Trim(FactoryName) + #13+ #13
|
||
+'Ʒ<><C6B7><EFBFBD><EFBFBD>'+Trim(Y_CodeName) + #13 + #13
|
||
+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+Trim(Y_Spec) + #13 + #13
|
||
+'<27><><EFBFBD>ţ<EFBFBD>'+Trim(BatchNo)+ #13 + #13
|
||
+'ֽ<><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+Trim(ZGZL)+ #13 + #13
|
||
+'ֽ<><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+Trim(ZXZL)+ #13 + #13
|
||
+'ֽ<>ܿ<EFBFBD><DCBF><EFBFBD><EFBFBD><EFBFBD>'+Trim(ZGKS)+ #13 + #13
|
||
+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+Trim(SJKS);
|
||
|
||
if Trim(BZX.Text)<>'' then
|
||
begin
|
||
ZGQty.Text:=ZGKS;
|
||
end;
|
||
if Trim(BZB.Text)<>'' then
|
||
begin
|
||
ZGQty.Text:=SJKS;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
Action:=caFree;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.Button1Click(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.ZGHClick(Sender: TObject);
|
||
begin
|
||
if Trim(ZGH.Text)='' then
|
||
begin
|
||
ZGH.Text:='<27><>';
|
||
ZGL.Text:='';
|
||
end else
|
||
begin
|
||
ZGL.Text:='<27><>';
|
||
ZGH.Text:='';
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.ZGLClick(Sender: TObject);
|
||
begin
|
||
if Trim(ZGL.Text)='' then
|
||
begin
|
||
ZGL.Text:='<27><>';
|
||
ZGH.Text:='';
|
||
end else
|
||
begin
|
||
ZGH.Text:='<27><>';
|
||
ZGL.Text:='';
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.BZXClick(Sender: TObject);
|
||
begin
|
||
if Trim(BZX.Text)='' then
|
||
begin
|
||
BZX.Text:='<27><>';
|
||
BZB.Text:='';
|
||
DQty.Text:='35';
|
||
ZGQty.Text:=ZGKS;
|
||
SJZL.Text:='';
|
||
SJZL.ReadOnly:=True;
|
||
end else
|
||
begin
|
||
BZB.Text:='<27><>';
|
||
DQty.Text:='985';
|
||
BZX.Text:='';
|
||
ZGQty.Text:=SJKS;
|
||
SJZL.ReadOnly:=False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.BZBClick(Sender: TObject);
|
||
begin
|
||
if Trim(BZB.Text)='' then
|
||
begin
|
||
BZB.Text:='<27><>';
|
||
BZX.Text:='';
|
||
DQty.Text:='985';
|
||
ZGQty.Text:=SJKS;
|
||
SJZL.ReadOnly:=False;
|
||
end else
|
||
begin
|
||
BZX.Text:='<27><>';
|
||
DQty.Text:='35';
|
||
BZB.Text:='';
|
||
ZGQty.Text:=ZGKS;
|
||
SJZL.ReadOnly:=True;
|
||
SJZL.Text:='';
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.ZGQtyClick(Sender: TObject);
|
||
var
|
||
i:Integer;
|
||
begin
|
||
{with Panel7 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
|
||
end;
|
||
end;
|
||
end; }
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.SQtyClick(Sender: TObject);
|
||
var
|
||
i:Integer;
|
||
begin
|
||
with Panel7 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
procedure TfrmJTSJY220318.InitJP(FName:string);
|
||
var
|
||
i:Integer;
|
||
begin
|
||
with Panel7 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := Trim(FName);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.SpeedButton1Click(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
begin
|
||
fsj := Trim(TSpeedButton(Sender).Hint);
|
||
if Trim(fsj)='SJZL' then
|
||
begin
|
||
if BZX.Text<>'' then Exit;
|
||
end;
|
||
if Trim(fsj) = '' then
|
||
Exit;
|
||
fsj := Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text);
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := fsj + Trim(TSpeedButton(Sender).Caption);
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll;
|
||
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.SpeedButton12Click(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
begin
|
||
if Trim(TSpeedButton(Sender).Hint)='SJZL' then
|
||
begin
|
||
if BZX.Text<>'' then Exit;
|
||
end;
|
||
fsj := Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text);
|
||
if Trim(fsj) = '' then
|
||
Exit;
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Copy(fsj, 1, Length(fsj) - 1);
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll;
|
||
end;
|
||
|
||
function TfrmJTSJY220318.SaveData(DataType:String): Boolean;
|
||
var
|
||
maxno,FMJID: string;
|
||
begin
|
||
FMJID:='';
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
if GetLSNo(ADOCmd, maxno, 'T' + Trim(SCXFlag), 'JY_YT', 4, 1) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from JY_YT where JYId=''' + Trim(FMJID) + '''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Append;
|
||
FieldByName('JYID').Value := Trim(maxno);
|
||
FieldByName('FactoryName').value :=FactoryName;
|
||
FieldByName('Y_CodeName').value := Trim(Y_CodeName);
|
||
FieldByName('Y_Spec').value := Trim(Y_Spec);
|
||
FieldByName('BatchNo').value := Trim(BatchNo);
|
||
if Trim(ZGH.Text)<>'' then
|
||
begin
|
||
FieldByName('ZGColor').value :='<27><>ɫ';
|
||
end;
|
||
if Trim(ZGL.Text)<>'' then
|
||
begin
|
||
FieldByName('ZGColor').value :='<27><>ɫ';
|
||
end;
|
||
FieldByName('CRType').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
FieldByName('Valie').Value := 'Y';
|
||
FieldByName('ZGZL').Value := StrToFloatdef(trim(ZGZL), 0);
|
||
FieldByName('ZGKS').Value := StrToFloatdef(trim(ZGQty.Text), 0);
|
||
if Trim(BZB.Text)<>'' then
|
||
begin
|
||
FieldByName('SJZL').Value := StrToFloatdef(trim(SJZL.Text), 0);
|
||
FieldByName('BZType').Value :='<27><>';
|
||
FieldByName('SJNO').Value :=Trim(SJZL.Hint);
|
||
end else
|
||
begin
|
||
FieldByName('SJZL').Value :=null;
|
||
FieldByName('SJNO').Value :=Null;
|
||
end;
|
||
if Trim(BZX.Text)<>'' then
|
||
begin
|
||
FieldByName('ZXZL').Value := StrToFloatdef(trim(ZXZL), 0);
|
||
FieldByName('BZType').Value :='<27><>';
|
||
end else
|
||
begin
|
||
FieldByName('ZXZL').Value :=null;
|
||
end;
|
||
if Trim(DataType)='<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
FieldByName('JYGW').Value := StrToFloatdef(trim(DQty.Text), 0);
|
||
end;
|
||
if Trim(DataType)='<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
FieldByName('JYGW').Value := StrToFloatdef(trim(SQty.Text), 0);
|
||
end;
|
||
if Trim(FMJID) = '' then
|
||
begin
|
||
FieldByName('Filler').Value := Trim(DName);
|
||
FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||
FieldByName('FillCode').Value := Trim(DCode);
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('Editer').Value := Trim(DName);
|
||
FieldByName('EditCode').Value := Trim(DCode);
|
||
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||
end;
|
||
FieldByName('JTType').Value := Trim(SCXFlag);
|
||
Post;
|
||
end;
|
||
FMJID := trim(maxno);
|
||
FFFMJID := FMJID;
|
||
with ClientDataSet1 do
|
||
begin
|
||
Append;
|
||
FieldByName('JYID').Value:=Trim(maxno);
|
||
FieldByName('ZGKS').Value:=trim(ZGQty.Text);
|
||
if Trim(ZGH.Text)<>'' then
|
||
begin
|
||
FieldByName('ZGColor').value :='<27><>ɫ';
|
||
end;
|
||
if Trim(ZGL.Text)<>'' then
|
||
begin
|
||
FieldByName('ZGColor').value :='<27><>ɫ';
|
||
end;
|
||
if Trim(DataType)='<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
FieldByName('JYGW').Value :=trim(DQty.Text);
|
||
end;
|
||
if Trim(DataType)='<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
FieldByName('JYGW').Value := trim(SQty.Text);
|
||
end;
|
||
Post;
|
||
end;
|
||
|
||
////////////////////////<2F><><EFBFBD>ء<EFBFBD><D8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⼰<EFBFBD><E2BCB0><EFBFBD><EFBFBD>/////////////////////////////////////
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_JY_Insert_JTS @JYID=''' + trim(FMJID) + '''');
|
||
execsql;
|
||
end;
|
||
////////////////////////<2F><><EFBFBD>ء<EFBFBD><D8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⼰<EFBFBD><E2BCB0><EFBFBD><EFBFBD>/////////////////////////////////////
|
||
|
||
ADOCmd.Connection.CommitTrans;
|
||
Result := True;
|
||
except
|
||
Result := False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.Button2Click(Sender: TObject);
|
||
var
|
||
FReal:Double;
|
||
begin
|
||
if Trim(CPInfo.Text)='' then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1>Ʒ<EFBFBD><C6B7>!','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
if Trim(Trim(ZGH.Text)+Trim(ZGL.Text))='' then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD>ɫ!','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
if Trim(Trim(BZX.Text)+Trim(BZB.Text))='' then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>װ<EFBFBD><D7B0>ʽ!','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
if Trim(ZGQty.Text)='' then
|
||
begin
|
||
InitJP('ZGQty');
|
||
ZGQty.SetFocus;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if TryStrToFloat(ZGQty.Text,FReal)=False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(BZB.Text)<>'' then
|
||
begin
|
||
if Trim(SJZL.Text)='' then
|
||
begin
|
||
//InitJP('SJZL');
|
||
//SJZL.SetFocus;
|
||
Application.MessageBox('˿<><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if TryStrToFloat(SJZL.Text,FReal)=False then
|
||
begin
|
||
Application.MessageBox('˿<><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','',32+4)<>IDYES then Exit;
|
||
if SaveData('<27><><EFBFBD><EFBFBD>') then
|
||
begin
|
||
SJZL.Text:='';
|
||
SJZL.Hint:='';
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.Button3Click(Sender: TObject);
|
||
var
|
||
FReal:Double;
|
||
begin
|
||
if Trim(CPInfo.Text)='' then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1>Ʒ<EFBFBD><C6B7>!','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
if Trim(Trim(ZGH.Text)+Trim(ZGL.Text))='' then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD>ɫ!','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
if Trim(Trim(BZX.Text)+Trim(BZB.Text))='' then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>װ<EFBFBD><D7B0>ʽ!','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
if Trim(ZGQty.Text)='' then
|
||
begin
|
||
InitJP('ZGQty');
|
||
ZGQty.SetFocus;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if TryStrToFloat(ZGQty.Text,FReal)=False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(BZB.Text)<>'' then
|
||
begin
|
||
if Trim(SJZL.Text)='' then
|
||
begin
|
||
// InitJP('SJZL');
|
||
//SJZL.SetFocus;
|
||
Application.MessageBox('˿<><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if TryStrToFloat(SJZL.Text,FReal)=False then
|
||
begin
|
||
Application.MessageBox('˿<><CBBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Trim(SQty.Text)='' then
|
||
begin
|
||
InitJP('SQty');
|
||
SQty.SetFocus;
|
||
Application.MessageBox('<27><><EFBFBD>䲻<EFBFBD><E4B2BB>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if TryStrToFloat(SQty.Text,FReal)=False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','',32+4)<>IDYES then Exit;
|
||
if SaveData('<27><><EFBFBD><EFBFBD>') then
|
||
begin
|
||
SJZL.Text:='';
|
||
SJZL.Hint:='';
|
||
SQty.Text:='';
|
||
//ZGQty.Text:='';
|
||
end;
|
||
end;
|
||
procedure TfrmJTSJY220318.InitGrid();
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from JY_YT where Convert(varchar(10),FillTime,120)=Convert(varchar(10),Getdate(),120)');
|
||
sql.Add(' and Filler='''+Trim(DName)+''' order by FillTime desc ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTemp,ClientDataSet1);
|
||
SInitCDSData20(ADOQueryTemp,ClientDataSet1);
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.FormShow(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmJTSJY220318.Button4Click(Sender: TObject);
|
||
begin
|
||
try
|
||
frmSCPerson := TfrmSCPerson.Create(self);
|
||
with frmSCPerson do
|
||
begin
|
||
if ShowModal = 1 then
|
||
begin
|
||
Self.SJZL.Text :=FSJZL;
|
||
Self.SJZL.hint := FSJNO;
|
||
end;
|
||
end;
|
||
finally
|
||
frmSCPerson.close;
|
||
end;
|
||
end;
|
||
|
||
end.
|