?? bassmessage_depotgoods.pas
字號:
unit BASSMESSAGE_DEPOTGOODS;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids, Impstringgrid,
DBTables, DB, Buttons, DsFancyButton, FRMBASS;
type
TFrm_main_depotgoods = class(TFrm_bass)
Table_DATA: TTable;
Query_data: TQuery;
L_warning: TLabel;
IMPSG_DATA: TImpStringgrid;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
cb_depot: TComboBox;
DTP_date: TDateTimePicker;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure IMPSG_DATADblClick(Sender: TObject);
procedure IMPSG_DATAElippsisclicked(Sender: TObject; Col,
Row: Integer);
procedure cb_depotChange(Sender: TObject);
procedure IMPSG_DATASetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: String);
procedure IMPSG_DATASelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
function User_save():boolean;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure IMPSG_DATAKeyPress(Sender: TObject; var Key: Char);
private
I_lastcol,I_lastrow:integer;
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_main_depotgoods: TFrm_main_depotgoods;
implementation
uses SELECT_GOODS, FRMmain;
{$R *.dfm}
procedure TFrm_main_depotgoods.FormCreate(Sender: TObject);
var
i_temp:integer;
begin
inherited;
self.Caption :=self.Caption +'商場期初數據錄入';
I_lastcol:=1;
I_lastrow:=1;
Query_data.DatabaseName :=HWSHOPDATA;
Table_DATA.DatabaseName :=HWSHOPDATA;
with IMPSG_DATA do
begin
ColCount :=6;
ColWidths[0]:=26;
ColWidths[1]:=80;
ColWidths[2]:=180;
ColWidths[3]:=180;
ColWidths[4]:=60;
ColWidths[5]:=160;
Columns.Items[0].Title.caption:='◎';
Columns.Items[1].Title.caption:='商品編號';
Columns.Items[2].Title.caption:='商品名稱';
Columns.Items[3].Title.caption:='商品型號';
Columns.Items[4].Title.caption:='數量';
Columns.Items[5].Title.caption:='備注';
columns.Items[3].ButtonStyle := cbsPicklist;
for i_temp:=1 to 500 do
Cells [0,i_temp]:=inttostr(i_temp);
end;
end;
procedure TFrm_main_depotgoods.FormShow(Sender: TObject);
var
list:Tstringlist;
b_find:boolean;
I_temp:integer;
begin
inherited;
//增加下拉列表
DTP_date.DateTime :=now;
with table_data do
begin
Close;
TableName:='depot.db';
active :=true;
first;
while not eof do
begin
if fieldbyname('setid').AsInteger <>999 then
CB_depot.Items.Append(fieldbyname('name').asstring);
next;
end;
Close;
TableName:='goodsmessage.db';
active :=true;
first;
with impsg_data do
begin
//增加產品名稱
columns.Items[2].ButtonStyle := cbsPicklist;
list := tstringlist.create;
end;
while not eof do
begin
B_find:=false;
for I_temp:=0 to list.Count-1 do
begin
if list.Strings[I_temp]=fieldbyname('name').asstring then
B_find:=true; //找到相同名稱
end;
if not B_find then //沒有找到時增加
list.add(fieldbyname('name').asstring);
next;
end;
impsg_data.columns.Items[2].Picklist := list;
impsg_data.columns.Items[2].DropDownRows :=20;
end;
impsg_data.columns.Items[1].ButtonStyle := cbsEllipsis;
end;
procedure TFrm_main_depotgoods.IMPSG_DATADblClick(Sender: TObject);
begin
inherited;
if IMPSG_DATA.Col <4 then
begin
application.CreateForm(tfrm_select_goods,frm_select_goods);
if frm_select_goods.showmodal=mrOK then
begin
IMPSG_DATA.Cells[1,impsg_data.Row]:=frm_select_goods.SG_data.Cells[1,frm_select_goods.SG_data.Row];
IMPSG_DATA.Cells[2,impsg_data.Row]:=frm_select_goods.SG_data.Cells[2,frm_select_goods.SG_data.Row];
IMPSG_DATA.Cells[3,impsg_data.Row]:=frm_select_goods.SG_data.Cells[3,frm_select_goods.SG_data.Row];
if IMPSG_DATA.Cells[4,impsg_data.Row]='' then IMPSG_DATA.Cells[4,impsg_data.Row]:='1';
IMPSG_DATA.Col :=4;
end;
frm_select_goods.free;
end;
end;
procedure TFrm_main_depotgoods.IMPSG_DATAElippsisclicked(Sender: TObject; Col,
Row: Integer);
begin
inherited;
IMPSG_DATAdblclick(IMPSG_DATA);
end;
procedure TFrm_main_depotgoods.cb_depotChange(Sender: TObject);
begin
inherited;
OKBtn.Enabled :=true;
L_warning.Caption :='商場名稱：'+cb_depot.Text ;
l_warning.Font.Color :=clblue;
end;
procedure TFrm_main_depotgoods.IMPSG_DATASetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
inherited;
if acol=3 then
begin
with query_data do
begin
sql.Text :='select * from goodsmessage where name='''+
IMPSG_DATA.Cells[2,arow]+''''+ ' and type='''+IMPSG_DATA.Cells[3,arow]+'''';
execsql;
open;
first;
if not eof then
begin
IMPSG_DATA.Cells[1,arow]:=fieldbyname('id').asstring;
if IMPSG_DATA.Cells[4,impsg_data.Row]='' then IMPSG_DATA.Cells[4,impsg_data.Row]:='1';
end
else
impsg_data.Cells[acol,arow]:='';
end;
end;
if acol=2 then
begin
impsg_data.Cells[3,arow]:='';
end;
end;
procedure TFrm_main_depotgoods.IMPSG_DATASelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
list:Tstringlist;
b_find:boolean;
I_temp:integer;
begin
inherited;
If i_lastcol=1 then
begin
with query_data do
begin
sql.Text :='select * from goodsmessage where id='''+
IMPSG_DATA.Cells[i_lastcol,i_lastrow]+'''';
execsql;
open;
first;
if not eof then
begin
IMPSG_DATA.Cells[2,i_lastrow]:=fieldbyname('name').asstring;
IMPSG_DATA.Cells[3,i_lastrow]:=fieldbyname('type').asstring;
if IMPSG_DATA.Cells[4,impsg_data.Row]='' then IMPSG_DATA.Cells[4,impsg_data.Row]:='1';
end
else
begin
IMPSG_DATA.Cells[1,i_lastrow]:='';
IMPSG_DATA.Cells[2,i_lastrow]:='';
IMPSG_DATA.Cells[3,i_lastrow]:='';
IMPSG_DATA.Cells[4,i_lastrow]:='';
end;
end;
end;
I_lastcol:=acol;
I_lastrow:=arow;
if acol=3 then
begin
with query_data do
begin
sql.Text :='select * from goodsmessage where name='''+
IMPSG_DATA.Cells[2,arow]+'''';
execsql;
open;
first;
list := tstringlist.create;
while not eof do
begin
B_find:=false;
for I_temp:=0 to list.Count-1 do
begin
if list.Strings[I_temp]=fieldbyname('type').asstring then
B_find:=true; //找到相同型號
end;
if not B_find then //沒有找到時增加
list.add(fieldbyname('type').asstring);
next;
end;
impsg_data.columns.Items[3].Picklist := list;
impsg_data.columns.Items[3].DropDownRows :=20;
end;
end;
end;
function TFrm_main_depotgoods.User_save():boolean;
var
I_temp,I_count:integer;
begin
I_count:=0;
if CB_depot.Text ='' then
begin
messagedlg('商場名稱不能為空，請檢查后重新輸入。',mtwarning,[mbok],0);
result:=false;
end
else
result:=true;
if result then
begin
for I_temp:=1 to 499 do //逐行檢測進貨記錄是否有效
begin
if IMPSG_DATA.Cells[1,I_temp]<>'' then //有效記錄
begin
inc(I_count);
if (IMPSG_DATA.cells[4,I_temp]='') then
begin
messagedlg('第'+inttostr(I_temp)+
'行記錄的數量未輸入，請檢查后重新輸入。',mtwarning,[mbok],0);
IMPSG_DATA.Row :=I_temp;
IMPSG_DATA.Col :=4;
IMPSG_DATA.SetFocus ;
result:=false;
exit;
end;
try
strtofloat(IMPSG_DATA.Cells[4,I_temp]);
except
messagedlg('第'+inttostr(I_temp)+
'行記錄的商品數量有錯誤，請檢查后重新輸入。',mtwarning,[mbok],0);
IMPSG_DATA.Row :=I_temp;
IMPSG_DATA.Col :=4;
IMPSG_DATA.SetFocus ;
result:=false;
exit;
end;
end;
end;
if I_count<1 then
begin
result:=false;
messagedlg('沒有輸入期初數據記錄，請檢查后重新輸入。',mtwarning,[mbok],0);
end;
end;
if result then
begin
with query_data do
begin
try
for I_temp:=1 to 499 do
begin
if IMPSG_DATA.Cells[1,I_temp]<>'' then //有效記錄
begin
close;
sql.clear;
sql.text:='delete from kccount where depot='''+cb_depot.Text+''' and GOODSID='''
+ IMPSG_DATA.Cells[1,I_temp] +'''';
execsql;
close;
sql.clear;
sql.text:='insert into kccount (depot,goodsid,num,mydate,id,memo)'+
'values ('''+cb_depot.text+''','''+IMPSG_DATA.Cells[1,I_temp]+''','
+IMPSG_DATA.cells[4,I_temp]+','''+formatdatetime('yyyy-mm-dd',DTP_date.DateTime)
+''','''+formatdatetime('yyyymmdd',date)
+'-'+formatdatetime('hhmmss',time)+'-'+inttostr(I_temp)+''','''
+ IMPSG_DATA.cells[5,i_temp]+''')';
execsql;
close;
sql.clear;
sql.text:='insert into startrecord (depot,goodsid,num,mydate,id,memo)'+
'values ('''+cb_depot.text+''','''+IMPSG_DATA.Cells[1,I_temp]+''','
+IMPSG_DATA.cells[4,I_temp]+','''+formatdatetime('yyyy-mm-dd',DTP_date.DateTime)
+''','''+formatdatetime('yyyymmdd',date)
+'-'+formatdatetime('hhmmss',time)+'-'+inttostr(I_temp)+''','''
+ IMPSG_DATA.cells[5,i_temp]+''')';
execsql;
//設置標志
sql.text:='update depot set setid=999 where name='''+cb_depot.text+'''';
execsql;
end;
end;
except
result:=false;
messagedlg('數據保存時發生意外錯誤，停止保存數據。',mtwarning,[mbok],0);
close;
exit;
end;
close;
end;
end;
end;
procedure TFrm_main_depotgoods.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
var
T_temp:TModalResult;
begin
inherited;
if cb_depot.text='' then exit;
T_temp:=messagedlg('是否要保存【'+cb_depot.text+'】的期初數據？',mtConfirmation,mbYesnoCancel,0);
if T_temp=mrYes then
begin
if not user_save then
begin
messagedlg('【'+cb_depot.text+'】的期初數據保存失敗，請檢查后重新保存。',mtError,[mbok],0);
canclose:=false;
end
else
canclose:=true;
end
else if T_temp=mrNo then
canclose:=true
else
canclose:=false;
end;
procedure TFrm_main_depotgoods.IMPSG_DATAKeyPress(Sender: TObject;
var Key: Char);
begin
inherited;
if (IMPSG_DATA.Col =4) then
begin
if word(key)=46 then
begin
key:=chr(0);
end
else if (word(key)<>8) and (word(key)<47) or (word(key)>57) then key:=chr(0);
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -