【delphi开源代码栏目提醒】:本文主要为网学会员提供DepotthUnit.pas,希望对需要DepotthUnit.pas网友有所帮助,学习一下!
unit DepotthUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MainInputTYUnit, DB, DBTables, Grids, ComCtrls, StdCtrls,
ExtCtrls;
type
TDepotthForm = class(TMainInputTYfrm)
CB_Depot: TComboBox;
function User_save: boolean;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure OKBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DepotthForm: TDepotthForm;
implementation
uses FunctionUnit, MainUnit;
{$R *.dfm}
function TDepotthForm.User_save: boolean;
var
I_errordb, I_temp, I_count, I_number: integer;
S_depotid, S_tempid, S_id: 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 Storagerecord 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 := 1;
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;
//退货仓库统计
I_errordb := 2;
sql.clear;
sql.text := 'select id,number from Storagerecord 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 := 3;
//更新数据
sql.clear;
sql.Text := 'update Storagerecord set number=' + inttostr(I_count)
+ ' where id="' + S_tempid + '"';
execsql;
close;
end;
end;
except
result := false;
if I_errordb = 1 then
messagedlg(Errormsg0004 + '0021', mtwarning, [mbok], 0)
else if I_errordb = 2 then
messagedlg(Errormsg0001 + '0019', mtwarning, [mbok], 0)
else if I_errordb = 3 then
messagedlg(Errormsg0004 + '0019', mtwarning, [mbok], 0)
else
messagedlg(Errormsg0001 + '0000', mtwarning, [mbok], 0);
close;
exit;
end;
close;
end;
end;
end;
procedure TDepotthForm.FormCreate(Sender: TObject);
begin
inherited;
self.Caption := '仓库进货退货数据录入';
impsg_data.ColWidths[6] := -1;
impsg_data.ColWidths[8] := -1;
end;
procedure TDepotthForm.FormShow(Sender: TObject);
begin
inherited;
with query_data do
begin
close;
sql.Clear;
sql.Text := 'select name from depot where 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 TDepotthForm.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 TDepotthForm.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;
end.
上一篇:
DySplitterWnd.cpp
下一篇:
网络能耗监测系统管理端的研究与实现