📄 u_form_initstorage_sub.~pas
字号:
unit U_Form_InitStorage_Sub;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, EasyGrid, StdCtrls, ButtonExCtl,uAdoSet,uCheckValidate,uString;
type
TForm_InitStorage_Sub = class(TForm)
GroupBox3: TGroupBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label2: TLabel;
Label9: TLabel;
Label10: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
Edit2: TEdit;
Edit3: TEdit;
Edit1: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Grid1: TEasyGrid;
ButtonSave: TButtonExCtl;
ButtonEdit: TButtonExCtl;
ButtonDel: TButtonExCtl;
ButtonFind: TButtonExCtl;
ButtonExit: TButtonExCtl;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure ButtonSaveClick(Sender: TObject);
procedure Grid1Click(Sender: TObject);
procedure ButtonEditClick(Sender: TObject);
procedure ButtonDelClick(Sender: TObject);
procedure ButtonExitClick(Sender: TObject);
private
{ Private declarations }
_AdoNewProduce:TuAdoSet;
_Adosale:TuAdoSet;
_Check:TCheckValidate;
_str:TuString;
public
{ Public declarations }
end;
var
Form_InitStorage_Sub: TForm_InitStorage_Sub;
_JB_Date:string;
_JB_sID:string;
implementation
uses U_Form_InitStorage,uGlobal;
{$R *.dfm}
procedure TForm_InitStorage_Sub.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
EnableWindow(Form_InitStorage.Handle,true);
CanClose:=true;
end;
procedure TForm_InitStorage_Sub.FormCreate(Sender: TObject);
var
param:TStringList;
strsql:string;
begin
_AdoNewProduce:=TuAdoSet.Create('newProduce',1);
_Adosale:=TuAdoSet.Create('newsale',1);
_Check:=TCheckValidate.create;
_str:=TuString.Create;
with _AdoNewProduce do
begin
setGridTitle(grid1,1,'编号',50);
setGridTitle(grid1,2,'日期',120);
setGridTitle(grid1,3,'产品名称',140);
setGridTitle(grid1,4,'规格',80);
setGridTitle(grid1,5,'单位',80);
setGridTitle(grid1,6,'成套数',90);
setGridTitle(grid1,7,'空箱数',80);
setGridTitle(grid1,8,'整瓶数',80);
setGridTitle(grid1,9,'领导签字',80);
setGridTitle(grid1,10,'原因',80);
setGridTitle(grid1,11,'酒库名称',80);
end;
param:=TStringList.Create;
param.clear;
strsql:='select wareTypeName from saleArea_tmp order By orderCode';
_Adosale.FillControl(combobox1,strsql,param,'wareTypeName');
///////添加规格/////////////////////////////
combobox2.Items.Add('24');
combobox2.Items.Add('15');
combobox2.Items.Add('12');
combobox2.Items.Add('10');
combobox2.Items.Add('8');
combobox2.Items.Add('6');
combobox2.Items.Add('9');
///////添加包装//////////////
combobox3.Items.Add('塑箱');
combobox3.Items.Add('塑包');
combobox3.Items.Add('纸箱');
combobox3.Items.Add('千升');
combobox3.Items.Add('桶');
edit2.text:='0';
edit3.text:='0';
edit5.text:='0';
{/*
在表格中显示当天的记录
*/}
param.Clear;
param.Add(trim(JB_Storage_Date));
strsql:='select sID,SFO_followDate,SFO_productName,SFO_Specification,SFO_UnitName,SFO_BoxNum,';
strSql:=strSql+'SFO_EmptyBoxNum,SFO_BottleNum,SFO_Director,SFO_Reason,SFO_WhichStore from ';
strSql:=strsql+'sale_followStore_Other where SFO_followdate=:s1';
_AdoNewProduce.BindToGrid(grid1,strSql,param);
end;
procedure TForm_InitStorage_Sub.ButtonSaveClick(Sender: TObject);
var
param:TStringList;
strSql:string;
begin
param:=TStringList.Create;
{/*
输入数据的有效性验证
*/}
if not _Check.Do_Control(combobox1,1,'请选择产品名称...') then exit;
if not _Check.Do_Control(combobox2,1,'请选择产品规格...') then exit;
if not _Check.Do_Control(combobox3,1,'请选择产品包装...') then exit;
{/*
检查指定日期的记录是否存在
*/}
param.clear;
param.Add(trim(JB_Storage_Date));
strSql:='select * from sale_followStore_Other where SFO_followDate=:s1';
if _AdoNewProduce.getRecordCount(strsql,param)>0 then
begin
showmessage('记录已经存在...');
exit;
end;
{/*
将当天的接班偏差信息存储的sale_followStore_Other中
*/}
{/*
确定是否存盘
*/}
if _str.saveMessage then
begin
param.clear;
param.Add(trim(JB_Storage_Date));
param.Add(trim(combobox1.text));
param.Add(trim(combobox2.text));
param.Add(trim(combobox3.text));
param.Add(trim(edit2.text));
param.Add(trim(edit3.text));
param.Add(trim(edit5.text));
param.Add(trim(edit4.text));
param.Add(trim(edit1.text));
param.add(trim(_whichStore));
strsql:='insert into Sale_followStore_Other(SFO_followDate,SFO_productName,SFO_Specification,';
strsql:=strsql+'SFO_UnitName,SFO_BoxNum,SFO_EmptyBoxNum,SFO_BottleNum,SFO_Director,';
strsql:=strsql+'SFO_Reason,SFO_WhichStore) Values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10)';
_AdoNewProduce.actionRecord(strsql,param);
end;
{/*
在表格中显示当天的记录
*/}
param.Clear;
param.Add(trim(JB_Storage_Date));
strsql:='select sID,SFO_followDate,SFO_productName,SFO_Specification,SFO_UnitName,SFO_BoxNum,';
strSql:=strSql+'SFO_EmptyBoxNum,SFO_BottleNum,SFO_Director,SFO_Reason,SFO_WhichStore from ';
strSql:=strsql+'sale_followStore_Other where SFO_followdate=:s1';
_AdoNewProduce.BindToGrid(grid1,strSql,param);
combobox1.Text:='';
combobox2.Text:='';
combobox3.Text:='';
edit1.Text:='';
edit2.Text:='0';
edit3.Text:='0';
edit4.Text:='';
edit5.Text:='0';
end;
procedure TForm_InitStorage_Sub.Grid1Click(Sender: TObject);
begin
_JB_SID:=trim(grid1.cells[1,grid1.row].foretext);
_JB_date:=trim(grid1.cells[2,grid1.row].foretext);
combobox1.Text:=trim(grid1.cells[3,grid1.row].foretext);
combobox2.Text:=trim(grid1.cells[4,grid1.row].foretext);
combobox3.Text:=trim(grid1.cells[5,grid1.row].foretext);
edit2.Text:=trim(grid1.cells[6,grid1.row].foretext);
edit3.Text:=trim(grid1.cells[7,grid1.row].foretext);
edit5.Text:=trim(grid1.cells[8,grid1.row].foretext);
edit4.Text:=trim(grid1.cells[9,grid1.row].foretext);
edit1.Text:=trim(grid1.cells[10,grid1.row].foretext);
end;
procedure TForm_InitStorage_Sub.ButtonEditClick(Sender: TObject);
var
param:TStringList;
strSql:string;
begin
param:=TStringList.Create;
{/*
验证输入的有效性
*/}
if not _Check.Do_Control(combobox1,1,'请选择产品名称') then exit;
if not _Check.Do_Control(combobox2,1,'请选择产品规格...') then exit;
if not _Check.Do_Control(combobox3,1,'请选择产品包装...') then exit;
{/*
确定修改记录
*/}
if _str.updateMessage then
begin
param.clear;
param.Add(trim(combobox1.text));
param.Add(trim(combobox2.text));
param.Add(trim(combobox3.text));
param.Add(trim(edit2.text));
param.Add(trim(edit3.text));
param.Add(trim(edit5.text));
param.Add(trim(edit4.text));
param.Add(trim(edit1.text));
param.add(trim(_JB_SID));
strSql:='update sale_followStore_Other set SFO_productName=:s1,SFO_Specification=:s2,SFO_UnitName=:s3,SFO_BoxNum=:s4,';
strSql:=strSql+'SFO_EmptyBoxNum=:s5,SFO_BottleNum=:s6,SFO_Director=:s7,SFO_Reason=:s8 where sID=:s9';
_AdoNewproduce.actionRecord(strsql,param);
end;//if
{/*
在表格中显示当天的记录
*/}
param.Clear;
param.Add(trim(_JB_Date));
strsql:='select sID,SFO_followDate,SFO_productName,SFO_Specification,SFO_UnitName,SFO_BoxNum,';
strSql:=strSql+'SFO_EmptyBoxNum,SFO_BottleNum,SFO_Director,SFO_Reason,SFO_WhichStore from ';
strSql:=strsql+'sale_followStore_Other where SFO_followdate=:s1';
_AdoNewProduce.BindToGrid(grid1,strSql,param);
grid1.Refresh;
combobox1.Text:='';
combobox2.Text:='';
combobox3.Text:='';
edit1.Text:='';
edit2.Text:='0';
edit3.Text:='0';
edit4.Text:='';
edit5.Text:='0';
end;
procedure TForm_InitStorage_Sub.ButtonDelClick(Sender: TObject);
var
param:TStringList;
strSql:string;
i,j:integer;
begin
param:=TStringList.Create;
{/*
验证
*/}
if _JB_SID='' then
begin
showmessage('记录不存在，不能删除');
exit;
end;
if not _Check.Do_Control(combobox1,1,'请选择产品名称，不能删除') then exit;
if not _Check.Do_Control(combobox2,1,'请选择产品规格，不能删除...') then exit;
if not _Check.Do_Control(combobox3,1,'请选择产品包装，不能删除...') then exit;
{/*
检查记录是否存在
*/}
param.Clear;
param.add(trim(_JB_SID));
strSql:='select * from sale_followStore_Other where sID=:s1';
if _AdoNewproduce.getRecordCount(strSql,param)<=0 then
begin
showmessage('记录不存在，不能删除');
exit;
end;
{/*
确定删除
*/}
if _str.deleteMessage then
begin
param.Clear;
param.Add(trim(_JB_SID));
strSql:='delete from sale_followStore_Other where sID=:s1';
_AdoNewproduce.actionRecord(strSql,param);
end;
for i:=2 to grid1.RowCount-1 do
begin
for j:=1 to grid1.ColCount-1 do
begin
grid1.cells[j,i].ForeText:='';
end;
end;
{/*
在表格中显示当天的记录
*/}
param.Clear;
param.Add(trim(_JB_Date));
strsql:='select sID,SFO_followDate,SFO_productName,SFO_Specification,SFO_UnitName,SFO_BoxNum,';
strSql:=strSql+'SFO_EmptyBoxNum,SFO_BottleNum,SFO_Director,SFO_Reason,SFO_WhichStore from ';
strSql:=strsql+'sale_followStore_Other where SFO_followdate=:s1';
_AdoNewProduce.BindToGrid(grid1,strSql,param);
combobox1.Text:='';
combobox2.Text:='';
combobox3.Text:='';
edit1.Text:='';
edit2.Text:='0';
edit3.Text:='0';
edit4.Text:='';
edit5.Text:='0';
grid1.Refresh;
_str.actionOK(at_delete);
end;
procedure TForm_InitStorage_Sub.ButtonExitClick(Sender: TObject);
begin
EnableWindow(Form_InitStorage.Handle,true);
close;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -