?? main_scjhth.pas
字號:
unit MAIN_SCJHTH;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MAIN_DATAINPUT, DB, DBTables, Grids, StdCtrls,
TFlatComboBoxUnit, ComCtrls, DsFancyButton, ExtCtrls,MYSELF,frmmain;
type
TFrm_main_scjhth = class(TFrm_main_input)
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure OKBtnClick(Sender: TObject);
function User_save():boolean;
private
{ Private declarations }
public
{ Public declarations }
var
Frm_main_scjhth: TFrm_main_scjhth;
implementation
{$R *.dfm}
procedure TFrm_main_scjhth.FormCreate(Sender: TObject);
begin
inherited;
self.Caption :='商場進貨退貨數據錄入';
impsg_data.ColWidths[6]:=-1;
impsg_data.ColWidths[8]:=-1;
end;
procedure TFrm_main_scjhth.FormShow(Sender: TObject);
begin
inherited;
with query_data do
begin
close;
sql.Clear ;
sql.Text :='select name from depot where setid=999 and type="外部"';
open;
cb_depot.Items.Clear ;
cb_depot.Style:=csDropDownList;
while not eof do
begin
CB_depot.Items.add(fieldbyname('name').asstring);
next;
end;
close;
end;
end;
procedure TFrm_main_scjhth.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
var
T_temp:TModalResult;
begin
inherited;
if OKBtn.Enabled then
begin
T_temp:=messagedlg(Askmsg0001,mtConfirmation,mbYesnoCancel,0);
if T_temp=mrYes then
begin
if not user_save then
begin
messagedlg('【'+cb_depot.text+'】的進貨退貨'+Infmsg0004,mtError,[mbok],0);
canclose:=false;
end
else
begin
messagedlg(Infmsg0001,mtInformation,[mbok],0);
canclose:=true;
end;
end
else if T_temp=mrNo then
canclose:=true
else
canclose:=false;
end
else
canclose:=true;
end;
procedure TFrm_main_scjhth.OKBtnClick(Sender: TObject);
var
T_temp:TModalResult;
begin
T_temp:=messagedlg(Askmsg0002+' - 【'+cb_depot.text+'】的進貨退貨數據',mtConfirmation,mbOKCancel,0);
if T_temp=mrOk then
begin
if not user_save then
begin
messagedlg('【'+cb_depot.text+'】的進貨退貨'+Infmsg0004,mtError,[mbok],0);
end
else
begin
messagedlg(Infmsg0001,mtInformation,[mbok],0);
okbtn.Enabled :=false;
self.close;
end;
end;
end;
function TFrm_main_scjhth.User_save():boolean;
var
I_errordb,I_temp,I_count,I_number,I_recordcount:integer;
S_depotid,S_tempid,S_id,S_maindepotid:string;
begin
I_errordb:=0;
I_count:=0;
S_depotid:='';
if not Checkrights(USERRIGHTS,'增加') then
begin
messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
result:=false;
exit;
end;
if CB_depot.Text ='' then
begin
messagedlg(Errormsg0002+'0002',mtwarning,[mbok],0);
cb_depot.SetFocus ;
result:=false;
end
else
result:=true;
if result then
begin
for I_temp:=1 to 99 do //逐行檢測進貨記錄是否有效
begin
if IMPSG_DATA.Cells[1,I_temp]<>'' then //有效記錄
begin
inc(I_count);
if (IMPSG_DATA.cells[4,I_temp]='') or (IMPSG_DATA.cells[5,I_temp]='') then
begin
messagedlg('第'+inttostr(I_temp)+
'行記錄的'+Errormsg0002+'0015',mtError,[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]);
strtofloat(IMPSG_DATA.Cells[5,I_temp]);
except
messagedlg('第'+inttostr(I_temp)+
'行記錄的'+Errormsg0002+'0015',mtError,[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(Errormsg0008,mtwarning,[mbok],0);
end;
end;
if result then
begin
with Query_data do
begin
try
close;
sql.Clear ;
sql.Text :='select id from depot where name="'+ cb_depot.Text+'"';
open;
S_depotid:=fieldbyname('id').AsString ;
close;
//檢查是否有庫存，即外部倉庫數量是否合法
for I_temp:=1 to 99 do
begin
if IMPSG_DATA.Cells[1,I_temp]<>'' then //有效記錄
begin
I_errordb:=1;
close;
sql.Clear ;
sql.text:='select id,number from kccount where depotid="'
+S_depotid+'" and goodsid="'+ IMPSG_DATA.Cells[1,I_temp]+'"';
open;
S_id:=fieldbyname('id').asstring;
I_number:=fieldbyname('number').AsInteger-strtoint(IMPSG_DATA.cells[4,I_temp]);
if (recordcount<= 0) or (s_id='') then //本行商品沒有庫存記錄
begin
messagedlg('在【'+cb_depot.Text+'】內'+Errormsg0009,mtwarning,[mbok],0);
impsg_data.Row :=I_temp;
impsg_data.Col :=1;
result:=false;
close;
exit;
end
else if I_number<0 then //庫存數量小于退貨數量
begin
messagedlg('在【'+cb_depot.Text+'】內'+Errormsg0010,mtwarning,[mbok],0);
impsg_data.Row :=I_temp;
impsg_data.Col :=4;
result:=false;
close;
exit;
end;
end;
end;
for I_temp:=1 to 99 do
begin
if IMPSG_DATA.Cells[1,I_temp]<>'' then //有效記錄
begin
I_errordb:=2;
close;
sql.clear;
//記錄進貨退貨記錄
sql.text:='insert into threcord (depotid,goodsid,number,mydate,id,memo,price)'+
'values ("'+S_depotid+'","'+IMPSG_DATA.Cells[1,I_temp]+'",'
+IMPSG_DATA.cells[4,I_temp]+',"'+formatdatetime('yyyy-mm-dd',DTP_date.DateTime)
+'","'+Nowindex+'-'+inttostr(I_temp)+'","'
+ IMPSG_DATA.cells[9,i_temp]+'",'+IMPSG_DATA.cells[5,I_temp]+')';
execsql;
close;
//退貨倉庫統(tǒng)計
I_errordb:=1;
sql.clear;
sql.text:='select id,number from kccount where depotid='''+
S_depotid+''' and goodsid='''+ IMPSG_DATA.Cells[1,I_temp]+'''';
open;
S_tempid:=fieldbyname('id').asstring;
I_count:=fieldbyname('number').AsInteger-strtoint(IMPSG_DATA.cells[4,I_temp]);
close;
I_errordb:=4;
sql.Clear ;
sql.Text :='select Id from depot where type="內部"';
open;
S_maindepotid:=fieldbyname('id').AsString ;
close;
//主倉庫統(tǒng)計
I_errordb:=1;
sql.Clear ;
sql.Text :='select id,number from kccount where depotid="'
+S_maindepotid+'" and goodsid="'+ IMPSG_DATA.Cells[1,I_temp]+'"';
open;
S_id:=fieldbyname('id').AsString ;
I_number:=fieldbyname('number').AsInteger+strtoint(IMPSG_DATA.cells[4,I_temp]);
I_recordcount:=recordcount;
close;
sql.Clear ;
//更新數據
I_errordb:=3;
sql.text:='update kccount set number='+inttostr(I_count)
+' where id='''+s_tempid+'''';
execsql;
close;
sql.clear;
if (I_recordcount>0) and (S_tempid<> '') then
sql.Text :='update kccount set number='+inttostr(I_number)
+' where id="'+S_id+'"'
else
sql.text:='insert into kccount (depotid,goodsid,number,price,id,memo)'
+' values ("'+S_maindepotid+'","'
+IMPSG_DATA.Cells[1,I_temp]+'",'+IMPSG_DATA.cells[4,I_temp]+','
+IMPSG_DATA.cells[5,I_temp]+',"'+Nowindex+'-'+inttostr(I_temp)+'","'
+ IMPSG_DATA.cells[9,i_temp]+'")';
execsql;
close;
end;
end;
except
result:=false;
if I_errordb=1 then
messagedlg(Errormsg0001+'0019',mtwarning,[mbok],0)
else if I_errordb=2 then
messagedlg(Errormsg0004+'0021',mtwarning,[mbok],0)
else if I_errordb=3 then
messagedlg(Errormsg0004+'0016',mtwarning,[mbok],0)
else if I_errordb=4 then
messagedlg(Errormsg0001+'0010',mtwarning,[mbok],0)
else
messagedlg(Errormsg0001+'0000',mtwarning,[mbok],0);
close;
exit;
end;
close;
end;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -