📄 uaddgpxx.pas
字号:
unit UADDGPXX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls;
type
TFADDGPXX = class(TForm)
Label1: TLabel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
EdtGPH: TEdit;
CobPMGG: TComboBox;
CobKH: TComboBox;
CobGPLX: TComboBox;
CobGPZT: TComboBox;
DtTJZRQ: TDateTimePicker;
DtTLPRQ: TDateTimePicker;
EdtGPND: TEdit;
EditSCCJ: TEdit;
EdtZCGY: TEdit;
EdtJYGY: TEdit;
EdtHGZ: TEdit;
EdtSCPH: TEdit;
EdtZLZS: TEdit;
EdtSCPZH: TEdit;
EdtXKBH: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Label17: TLabel;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure EdtGPNDExit(Sender: TObject);
procedure EdtGPNDKeyPress(Sender: TObject; var Key: Char);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
procedure addGPXX;
procedure updateGPXX;
{ Private declarations }
public
{ Public declarations }
end;
var
FADDGPXX: TFADDGPXX;
implementation
uses U_dm,UsysPub,UsysConst;
{$R *.dfm}
procedure TFADDGPXX.addGPXX;
var
strGPH,strSPBH,strSPMC,strKHBH,strKHMC,strGPLX,strGXZT,strGXND:string;
strSQL:string;
dttTJZRQ,dttTLPRQ:TDate;
i:integer;
strSCCJ,strZCGY,STRJYGY,strHGZ,strSCPH,strZLZS,strSCPZH,strXKBH:string;
begin
screen.Cursor:=crhourglass;
strGPH :=Trim(EdtGPH.Text);
i:=CobPMGG.ItemIndex;
if i<>-1 then
strSPBH :=Trim(TStrSp.Strings[i]);
strSPMC :=Trim(CobPMGG.Text);
i:=CobKH.ItemIndex;
if i<>-1 then
strKHBH :=Trim(TStrKH.Strings[i]);
strKHMC :=Trim(CobKH.Text);
strGPLX :=Trim(CobGPLX.Text);
strGXZT :=Trim(CobGPZT.Text);
dttTJZRQ:=DtTJZRQ.Date;
dttTLPRQ:=DtTLPRQ.Date;
strGXND :=NontoNumber(EdtGPND.Text);
strSCCJ :=Trim(EditSCCJ.Text );
strZCGY :=Trim(EdtZCGY.Text );
STRJYGY :=Trim(EdtJYGY.Text );
strHGZ :=Trim(EdtHGZ.Text );
strSCPH :=Trim(EdtSCPH.Text );
strZLZS :=Trim(EdtZLZS.Text );
strSCPZH:=Trim(EdtSCPZH.Text );
strXKBH :=Trim(EdtXKBH.Text );
if strGPH='' then
begin
Application.MessageBox('钢瓶号不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
screen.Cursor:=crdefault;
EdtGPH.SetFocus;
abort;
end;
if strSPBH='' then
begin
Application.MessageBox('请选择商品！',MsgBxCaption,MB_OK+MB_ICONWARNING);
screen.Cursor:=crdefault;
abort;
end;
if strGPLX='' then
begin
Application.MessageBox('请选择钢瓶类型！',MsgBxCaption,MB_OK+MB_ICONWARNING);
screen.Cursor:=crdefault;
abort;
end;
IF strGXZT='' THEN
begin
Application.MessageBox('请选择钢瓶状态！',MsgBxCaption,MB_OK+MB_ICONWARNING);
screen.Cursor:=crdefault;
abort;
end;
strSQL:='select * from JG钢瓶信息 where (钢瓶号='+''''+strGPH+''''+')';
if RunSQL(DM.m_clADOQry_Temp,strSQL,0) then
begin
if DM.m_clADOQry_Temp.RecordCount>0 then
begin
Application.MessageBox('钢瓶号重复，请重新输入！',MsgBxCaption,MB_OK+MB_ICONWARNING);
screen.Cursor:=crdefault;
EdtGPH.SetFocus;
abort;
end
else
begin
strSQL:='Insert Into JG钢瓶信息 Values('
+''''+strCZMD+''''
+','+''''+strGPH+''''
+','+''''+strCZMDMC+''''
+','+''''+strKHBH+''''
+','+''''+strKHMC+''''
+','+''''+DateToStr(dttTLPRQ)+''''
+','+strGXND
+','+''''+strSPBH+''''
+','+''''+strSPMC+''''
+','+''''+strSCCJ+''''
+','+''''+DateToStr(dttTJZRQ)+''''
+','+''''+STRJYGY+''''
+','+''''+strGPLX+''''
+','+''''+strSCPZH+''''
+','+''''+strXKBH+''''
+','+''''+strZCGY+''''
+','+''''+strSCPH+''''
+','+''''+strZLZS+''''
+','+''''+strHGZ+''''
+','+''''+strGXZT+''''
+',1'
+',1'
+')';
if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
begin
screen.Cursor:=crdefault;
strSQL:='select *,(case 删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 from JG钢瓶信息';
RunSQL(DM.ADOQ_GP,strSQL,0);
end
else
begin
Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
screen.Cursor:=crdefault;
end;
end;
end;
EdtGPH.Text:=BuildTable(dm.m_clADOQry_Temp,'JG钢瓶信息','钢瓶号','0',6);
CobPMGG.ItemIndex:=-1;
CobKH.ItemIndex:=-1;
CobGPLX.ItemIndex:=0;
CobGPZT.ItemIndex:=0;
DtTJZRQ.Date:=Now();
DtTLPRQ.Date:=Now();
EdtGPND .Text:='';
EditSCCJ.Text:='';
EdtZCGY.Text:='';
EdtJYGY.Text:='';
EdtHGZ.Text:='';
EdtSCPH.Text:='';
EdtZLZS.Text:='';
EdtSCPZH.Text:='';
EdtXKBH.Text:='';
EdtGPH.SetFocus;
end;
procedure TFADDGPXX.updateGPXX;
var
strGPH,strSPBH,strSPMC,strKHBH,strKHMC,strGPLX,strGXZT,strGXND:string;
strSQL,strTmp:string;
dttTJZRQ,dttTLPRQ:TDate;
i:integer;
strSCCJ,strZCGY,STRJYGY,strHGZ,strSCPH,strZLZS,strSCPZH,strXKBH:string;
begin
screen.Cursor:=crhourglass;
strGPH :=Trim(EdtGPH.Text);
i:=CobPMGG.ItemIndex;
if i<>-1 then
strSPBH :=Trim(TStrSp.Strings[i]);
strSPMC :=Trim(CobPMGG.Text);
i:=CobKH.ItemIndex;
if i<>-1 then
strKHBH :=Trim(TStrKH.Strings[i]);
strKHMC :=Trim(CobKH.Text);
strGPLX :=Trim(CobGPLX.Text);
strGXZT :=Trim(CobGPZT.Text);
dttTJZRQ:=DtTJZRQ.Date;
dttTLPRQ:=DtTLPRQ.Date;
strGXND :=NontoNumber(EdtGPND.Text);
strSCCJ :=Trim(EditSCCJ.Text );
strZCGY :=Trim(EdtZCGY.Text );
STRJYGY :=Trim(EdtJYGY.Text );
strHGZ :=Trim(EdtHGZ.Text );
strSCPH :=Trim(EdtSCPH.Text );
strZLZS :=Trim(EdtZLZS.Text );
strSCPZH:=Trim(EdtSCPZH.Text );
strXKBH :=Trim(EdtXKBH.Text );
strTmp:=Trim(dm.ADOQ_GP.fieldbyname('门店编号').AsString);
if strGPH='' then
begin
Application.MessageBox('钢瓶号不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
screen.Cursor:=crdefault;
EdtGPH.SetFocus;
abort;
end;
if strSPBH='' then
begin
Application.MessageBox('请选择商品！',MsgBxCaption,MB_OK+MB_ICONWARNING);
screen.Cursor:=crdefault;
abort;
end;
if strGPLX='' then
begin
Application.MessageBox('请选择钢瓶类型！',MsgBxCaption,MB_OK+MB_ICONWARNING);
screen.Cursor:=crdefault;
abort;
end;
IF strGXZT='' THEN
begin
Application.MessageBox('请选择钢瓶状态！',MsgBxCaption,MB_OK+MB_ICONWARNING);
screen.Cursor:=crdefault;
abort;
end;
strSQL:='Update JG钢瓶信息 set 客户ID='
+''''+strKHBH+''''
+',客户名称='+''''+strKHMC+''''
+',留瓶日期='+''''+DateToStr(dttTLPRQ)+''''
+',钢瓶年度='+strGXND
+',商品编号='+''''+strSPBH+''''
+',品名规格='+''''+strSPMC+''''
+',生产厂家='+''''+strSCCJ+''''
+',检测日期='+''''+DateToStr(dttTJZRQ)+''''
+',检验钢印='+''''+STRJYGY+''''
+',钢瓶类型='+''''+strGPLX+''''
+',生产标准号='+''''+strSCPZH+''''
+',制造单位许可编号='+''''+strXKBH+''''
+',制造钢印='+''''+strZCGY+''''
+',生产批号='+''''+strSCPH+''''
+',质量证书='+''''+strZLZS+''''
+',合格证='+''''+strHGZ+''''
+',状态='+''''+strGXZT+''''
+' where (钢瓶号='+''''+strGPH+''''+')and(门店编号='+''''+strTmp+''''+')';
if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
begin
screen.Cursor:=crdefault;
strSQL:='select *,(case 删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 from JG钢瓶信息';
RunSQL(DM.ADOQ_GP,strSQL,0);
end
else
begin
Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
screen.Cursor:=crdefault;
end;
end;
procedure TFADDGPXX.FormShow(Sender: TObject);
var
strSQL:string;
begin
strSQL:='select 商品编号 DaiMa,品名规格 MingCheng from JG商品资料 where 回瓶=1';
TStrSp:=SetCmbxItem(CobPMGG,DM.m_clADOQry_Temp,strSQL,True);
strSQL:='select 客户ID DaiMa,客户名称 MingCheng from JG客户信息';
TStrKH:=SetCmbxItem(CobKH,DM.m_clADOQry_Temp,strSQL,True);
strSQL:='select 编号 DaiMa,名称 MingCheng from JG钢瓶类型';
TStrgplx:=SetCmbxItem(CobGPLX,DM.m_clADOQry_Temp,strSQL,False);
DtTJZRQ.DateTime:=NOW();
DtTLPRQ.DateTime:=NOW();
CobPMGG.ItemIndex:=-1;
CobKH.ItemIndex:=-1;
IF strCZZT='MODIFY' THEN
BEGIN
self.Caption:='修改钢瓶信息';
EdtGPH.Text:=Trim(dm.ADOQ_GP.fieldbyname('钢瓶号').AsString);
CobPMGG.ItemIndex:=TStrSp.IndexOf(Trim(dm.ADOQ_GP.fieldbyname('商品编号').AsString));
CobKH.ItemIndex:=TStrKH.IndexOf(Trim(dm.ADOQ_GP.fieldbyname('客户ID').AsString));
CobGPLX.Text:=Trim(dm.ADOQ_GP.fieldbyname('钢瓶类型').AsString);
CobGPZT.Text:=Trim(dm.ADOQ_GP.fieldbyname('状态').AsString);
DtTJZRQ.Date:=dm.ADOQ_GP.fieldbyname('检测日期').AsDateTime;
DtTLPRQ.Date:=dm.ADOQ_GP.fieldbyname('留瓶日期').AsDateTime;
EdtGPND.Text:=inttostr(dm.ADOQ_GP.fieldbyname('钢瓶年度').AsInteger);
EditSCCJ.Text:=Trim(dm.ADOQ_GP.fieldbyname('生产厂家').AsString);
EdtZCGY.Text:=Trim(dm.ADOQ_GP.fieldbyname('制造钢印').AsString);
EdtJYGY.Text:=Trim(dm.ADOQ_GP.fieldbyname('检验钢印').AsString);
EdtHGZ.Text:=Trim(dm.ADOQ_GP.fieldbyname('合格证').AsString);
EdtSCPH.Text:=Trim(dm.ADOQ_GP.fieldbyname('生产批号').AsString);
EdtZLZS.Text:=Trim(dm.ADOQ_GP.fieldbyname('质量证书').AsString);
EdtSCPZH.Text:=Trim(dm.ADOQ_GP.fieldbyname('生产标准号').AsString);
EdtXKBH.Text:=Trim(dm.ADOQ_GP.fieldbyname('制造单位许可编号').AsString);
EdtGPH.Color:=clBtnFace;
EdtGPH.ReadOnly:=True;
BitBtn1.Visible:=False;
EdtGPND.SetFocus;
END
else
begin
EdtGPH.Text:=BuildTable(dm.m_clADOQry_Temp,'JG钢瓶信息','钢瓶号','0',6);
EdtGPH.SetFocus;
end;
end;
procedure TFADDGPXX.BitBtn1Click(Sender: TObject);
begin
addGPXX;
end;
procedure TFADDGPXX.BitBtn2Click(Sender: TObject);
begin
IF strCZZT='MODIFY' THEN
updateGPXX
else
addGPXX;
self.Close;
end;
procedure TFADDGPXX.BitBtn3Click(Sender: TObject);
begin
self.Close;
end;
procedure TFADDGPXX.EdtGPNDExit(Sender: TObject);
begin
if Trim(EdtGPND.Text)='' then
begin
EdtGPND.Text:='0';
abort;
end;
if TryIsFloat(Trim(EdtGPND.Text))=False then
begin
Application.MessageBox('非法数值！',MsgBxCaption,MB_OK+MB_ICONWARNING);
EdtGPND.SetFocus;
end;
end;
procedure TFADDGPXX.EdtGPNDKeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in['0'..'9',#8,#9,#14,#23,#24,#25,#26,#27,#28,#30,#13])) then
key:=#0;
end;
procedure TFADDGPXX.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
EnterToChangeFocus(self,key);
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -