?? usld.~pas
字號:
unit uSLD;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, DBCtrls, Buttons, Mask, Grids, DBGrids, ExtCtrls, Db, DBClient,
ComCtrls, Menus, ImgList, Qrctrls, variants, ADODB;
type
TfrmSLD = class(TForm)
btnAppend: TSpeedButton;
btnDelete: TSpeedButton;
btnEdit: TSpeedButton;
btnSave: TSpeedButton;
btnCancel: TSpeedButton;
btnUndo: TSpeedButton;
btnSH: TSpeedButton;
btnRefresh: TSpeedButton;
Panel1: TPanel;
pnl_Main: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label10: TLabel;
Label14: TLabel;
Label15: TLabel;
Label39: TLabel;
edtSlzh: TDBEdit;
edtZdrq: TDBEdit;
edtGycj: TDBEdit;
edtWzly: TDBEdit;
edtCgr: TDBEdit;
edtHtbh: TDBEdit;
edtFph: TDBEdit;
edtShr: TDBEdit;
edtDjbz: TDBEdit;
cbSfsh: TDBCheckBox;
cmbCkmc: TDBComboBox;
btn_cgr: TBitBtn;
DBGrid: TDBGrid;
pnl_Main1: TPanel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
edtZg: TDBEdit;
edtZdr: TDBEdit;
edtYsr: TDBEdit;
btn_zg: TBitBtn;
btn_zdr: TBitBtn;
btn_ysr: TBitBtn;
dsSLD: TDataSource;
dsSLD_DETAIL: TDataSource;
aqSLDMAIN: TADOQuery;
aqSLDDetail: TADOQuery;
pm_Detail: TPopupMenu;
pmi_Insert: TMenuItem;
pmi_Delete: TMenuItem;
Label16: TLabel;
Label8: TLabel;
edtFpje: TDBEdit;
Label9: TLabel;
edtQzyzf: TDBEdit;
DBNavigator: TDBNavigator;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btn_editClick(Sender: TObject);
procedure btn_cancelClick(Sender: TObject);
procedure btn_saveClick(Sender: TObject);
procedure btn_cgrClick(Sender: TObject);
procedure btn_zgClick(Sender: TObject);
procedure btn_zdrClick(Sender: TObject);
procedure btn_ysrClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnAppendClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure btnUndoClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnRefreshClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure DBNavigatorClick(Sender: TObject; Button: TNavigateBtn);
procedure pmi_InsertClick(Sender: TObject);
procedure pmi_DeleteClick(Sender: TObject);
procedure btnSHClick(Sender: TObject);
private
procedure btn_valid;
{ Private declarations }
public
{ Public declarations }
end;
var
frmSLD: TfrmSLD;
implementation
uses uDB, uPublic, U_fzlr_clbm, U_Sldjshkp;
{$R *.DFM}
procedure TfrmSLD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action := cafree;
frmSLD := nil;
end;
procedure TfrmSLD.btn_valid;
begin
DBNavigator.enabled := not dbnavigator.enabled;
btnUndo.enabled := not btnUndo.enabled;
btnAppend.enabled := not btnAppend.enabled;
btnDelete.enabled := not btnDelete.enabled;
btnEdit.enabled := not btnEdit.enabled;
btnSave.enabled := not btnSave.enabled;
btnSH.enabled := not btnSH.enabled;
btnRefresh.enabled := not btnRefresh.enabled;
//顯示區(qū)的切換
pnl_Main.enabled := not pnl_Main.enabled;
pnl_Main1.enabled := not pnl_Main1.enabled;
//DBGrid中2、3、4、5字段狀態(tài)切換，其他字段仍是只讀
dbgrid.Columns[2].readonly := not dbgrid.Columns[2].readonly;
dbgrid.Columns[3].readonly := not dbgrid.Columns[3].readonly;
dbgrid.Columns[4].readonly := not dbgrid.Columns[4].readonly;
dbgrid.Columns[5].readonly := not dbgrid.Columns[5].readonly;
//輔助錄入按鈕的可見性切換
btn_cgr.visible := not btn_cgr.visible;
btn_zg.visible := not btn_zg.visible;
btn_zdr.visible := not btn_zdr.visible;
btn_ysr.visible := not btn_ysr.visible;
end;
procedure TfrmSLD.btn_editClick(Sender: TObject);
begin
//先判斷是否有記錄可編輯
if aqSLDMain.recordcount = 0 then
begin
application.MessageBox('沒有記錄不能編輯', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
exit;
end;
//判斷此單據(jù)是否已審核過了，如已審核，就不能修改
if aqSLDMain.FieldByName('是否審核').value = true then
begin
application.messagebox('此單據(jù)已審核，不能編輯', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
exit;
end;
//使數(shù)據(jù)集處于編輯狀態(tài)
dsSLD.edit;
edtSlzh.enabled := false;
//設(shè)置組件有效性
btn_valid;
cmbckmc.setfocus;
end;
procedure TfrmSLD.btn_cancelClick(Sender: TObject);
begin
//撤消剛才的操作
aqSLDMain.CancelUpdates;
//設(shè)置數(shù)據(jù)顯示組件為不可用狀態(tài)
btn_valid;
end;
procedure TfrmSLD.btn_saveClick(Sender: TObject);
var
s_slzh: string;
begin
//檢查數(shù)據(jù)的有效性
if cmbCkmc.text = '' then
begin
application.MessageBox('倉庫名稱不能為空', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
cmbCkmc.SetFocus;
exit;
end;
if length(trim(edtSlzh.text)) <> 9 then
begin
application.MessageBox('收料字號應(yīng)為九位', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
edtSlzh.SetFocus;
exit;
end;
//判斷關(guān)鍵字是否重復(fù)
s_slzh := edtSlzh.Text;
aqSLDMain.IndexName := '收料字號';
aqSLDMain.Refresh;
if dsSLD.state = dsinsert then
begin
//檢查重復(fù)
{ if aqSLDMain.FindField(s_slzh) then
begin
application.MessageBox('收料字號已重復(fù)', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
edtSlzh.SetFocus;
exit;
end; }
end;
//提交、保存數(shù)據(jù)庫
aqSLDMain.Post;
// aqSLDMain.ApplyUpdates(0);
//設(shè)置數(shù)據(jù)顯示組件為不可用狀態(tài)
btn_valid;
end;
procedure TfrmSLD.btn_cgrClick(Sender: TObject);
begin
aqSLDMain.FieldByName('StockPerson').value := GetEmployeeName;
end;
procedure TfrmSLD.btn_zgClick(Sender: TObject);
begin
aqSLDMain.FieldByName('Admin').value := GetEmployeeName;
end;
procedure TfrmSLD.btn_zdrClick(Sender: TObject);
begin
aqSLDMain.FieldByName('DrawPerson').value := GetEmployeeName;
end;
procedure TfrmSLD.btn_ysrClick(Sender: TObject);
begin
aqSLDMain.FieldByName('CheckPerson').value := GetEmployeeName;
end;
procedure TfrmSLD.FormShow(Sender: TObject);
var
s_value: string;
query: TADOQuery;
begin
//激活倉庫信息表
query := TADOquery.Create(self);
query.Connection:= dmWarehouse.ACWarehouse;
query.SQL.Text := 'select * from CKDYB' ;
query.open;
cmbCkmc.Items.Clear ;
//循環(huán)向下拉框?qū)懭雮}庫名稱
while not query.eof do
begin
s_value := query.fieldbyname('WName').asstring;
cmbCkmc.Items.Add(s_value);
query.next;
end;
aqSLDMain.Close;
aqSLDDetail.Close;
aqSLDMain.Open;
aqSLDDetail.SQL.Text:='select * from SLD_DETAIL where InNo="'+trim(edtSlzh.Text)+'"';
aqSLDDetail.Open;
end;
procedure TfrmSLD.btnAppendClick(Sender: TObject);
begin
//取消過濾
aqSLDMain.filter := '';
aqSLDMain.filtered := true;
//數(shù)據(jù)集處于添加狀態(tài)
aqSLDMain.Insert;
edtSlzh.enabled := true;
//改變組件的有效性
btn_valid;
cmbCkmc.SetFocus;
aqSLDDetail.SQL.Text:='select * from SLD_DETAIL where 收料字號="'+trim(edtSlzh.Text)+'"';
aqSLDDetail.Open;
end;
procedure TfrmSLD.btnDeleteClick(Sender: TObject);
begin
//判斷是否有記錄可刪除
if aqSLDMain.recordcount = 0 then
begin
application.MessageBox('沒有記錄可刪除', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
exit;
end;
//確認刪除
if application.messagebox('請確認是否要刪除', '倉庫管理系統(tǒng)', mb_iconinformation + mb_yesno) = idyes then
begin
aqSLDMain.delete;
// aqSLDMain.applyupdates(0);
end;
end;
procedure TfrmSLD.btnEditClick(Sender: TObject);
begin
//先判斷是否有記錄可編輯
if aqSLDMain.recordcount = 0 then
begin
application.MessageBox('沒有記錄不能編輯', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
exit;
end;
//判斷此單據(jù)是否已審核過了，如已審核，就不能修改
if aqSLDMain.FieldByName('IsAuditing').value = true then
begin
application.messagebox('此單據(jù)已審核，不能編輯', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
exit;
end;
//使數(shù)據(jù)集處于編輯狀態(tài)
dsSLD.edit;
edtSlzh.enabled := false;
//設(shè)置組件有效性
btn_valid;
cmbckmc.setfocus;
end;
procedure TfrmSLD.btnUndoClick(Sender: TObject);
begin
//撤消剛才的操作
aqSLDMain.CancelUpdates;
//設(shè)置數(shù)據(jù)顯示組件為不可用狀態(tài)
btn_valid;
end;
procedure TfrmSLD.btnSaveClick(Sender: TObject);
var
s_slzh: string;
query: TADOQuery;
begin
//檢查數(shù)據(jù)的有效性
if cmbCkmc.text = '' then
begin
application.MessageBox('倉庫名稱不能為空', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
cmbCkmc.SetFocus;
exit;
end;
if length(trim(edtSlzh.text)) <> 9 then
begin
application.MessageBox('收料字號應(yīng)為九位', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
edtSlzh.SetFocus;
exit;
end;
//判斷關(guān)鍵字是否重復(fù)
s_slzh := edtSlzh.Text;
if aqSLDMain.state = dsinsert then
begin
query := TADOquery.Create(self);
query.Connection:= dmWarehouse.ACWarehouse;
query.SQL.Text := 'select * from SLD_MAIN where InNo ="' + s_slzh + '"' ;
query.open;
if not query.Eof then
begin
MessageBox(handle, '此收料字號已存在!', '提示', mb_IconInformation + mb_Ok);
aqSLDMain.Cancel;
edtSlzh.SetFocus;
exit;
end
end;
//提交、保存數(shù)據(jù)庫
aqSLDMain.Post;
//dsSLD.ApplyUpdates(0);
//設(shè)置數(shù)據(jù)顯示組件為不可用狀態(tài)
btn_valid;
end;
procedure TfrmSLD.btnRefreshClick(Sender: TObject);
begin
aqSLDMain.open;
aqSLDDetail.SQL.Text:='select * from SLD_DETAIL where InNo="'+trim(edtSlzh.Text)+'"';
aqSLDDetail.Open;
end;
procedure TfrmSLD.btnCancelClick(Sender: TObject);
begin
frmSld := nil;
close;
end;
procedure TfrmSLD.DBNavigatorClick(Sender: TObject; Button: TNavigateBtn);
begin
aqSLDDetail.SQL.Text:='select * from SLD_DETAIL where InNo="'+trim(edtSlzh.Text)+'"';
aqSLDDetail.Open;
end;
procedure TfrmSLD.pmi_InsertClick(Sender: TObject);
var
i: integer;
query: TADOQuery;
begin
//判斷是否在編輯狀態(tài)下
if btnEdit.Enabled = true then
begin
application.MessageBox('請在編輯狀態(tài)下添加材料', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
exit;
end;
if aqSLDMain.state = dsinsert then
begin
application.MessageBox('請在編輯狀態(tài)下添加材料', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
exit;
end;
//創(chuàng)建輔助錄入窗口
application.createform(TfrmClbm_Fzlr, frmClbm_Fzlr);
try
frmClbm_Fzlr.showmodal;
finally
frmClbm_Fzlr.free;
//將選中的材料加到DBGrid中
for i := Low(ClbmRec) to High(clbmRec) do
begin
aqSLDDetail.Active := True;
aqSLDDetail.open;
// aqSLDDetail.Filter := 'InNo=' + '''' + aqSLDMain.fieldbyname('InNo').asstring + '''';
// aqSLDDetail.filtered := true;
// aqSLDDetail.IndexFieldNames := '材料編號';
//判斷是否有重復(fù)的倉庫
{ query := TADOQuery.Create(self);
query.Connection:= dmWarehouse.ACWarehouse;
query.SQL.Text := 'select * from CLBM_TEMP where MatCode="' + clbmRec[i].clbm + '"' ;
query.open;
if not query.Eof then
begin
MessageBox(handle, '此材料編碼已存在!', '提示', mb_IconInformation + mb_Ok);
continue;
end; }
//添加進aqSLDDetail
aqSLDDetail.insert;
aqSLDDetail.fieldbyname('InNo').value := aqSLDMain.fieldbyname('InNo').asstring;
aqSLDDetail.fieldbyname('MatCode').value := ClbmRec[i].clbm;
aqSLDDetail.fieldbyname('MatName').value := ClbmRec[i].clmc;
aqSLDDetail.fieldbyname('Size').value := ClbmRec[i].ggxh;
aqSLDDetail.fieldbyname('CUnit').value := ClbmRec[i].jldw;
aqSLDDetail.fieldbyname('PlanPrice').value := ClbmRec[i].jhdj;
aqSLDDetail.fieldbyname('PriceUnit').value := ClbmRec[i].djdw;
aqSLDDetail.fieldbyname('BillNum').value := 0.0;
aqSLDDetail.fieldbyname('InNum').value := 0.0;
aqSLDDetail.post;
end;
end;
dbgrid.Refresh;
end;
procedure TfrmSLD.pmi_DeleteClick(Sender: TObject);
begin
//判斷是否有記錄可刪除
if aqSLDDetail.recordcount = 0 then
begin
application.MessageBox('沒有記錄可刪除', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
exit;
end;
//判斷是否在瀏覽狀態(tài)下
if (btnEdit.enabled = false) then
begin
application.MessageBox('請在瀏覽狀態(tài)下刪除倉庫', '倉庫管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
exit;
end;
if application.messagebox('請確認是否要刪除', '倉庫管理系統(tǒng)', mb_iconinformation + mb_yesno) = idyes then
begin
aqSLDDetail.delete;
end;
end;
//審核處理
procedure TfrmSLD.btnSHClick(Sender: TObject);
begin
if aqSLDMAIN.FieldByName('IsAuditing').value = true then
begin
application.MessageBox('此單據(jù)已審核', '材料與計劃管理系統(tǒng)', mb_iconinformation + mb_defbutton1);
exit;
end;
if application.MessageBox('請確認是否審核通過', 'Tip', mb_iconinformation + mb_yesno) = idyes then
begin
application.createform(TfrmClsldDjsh, frmClsldDjsh);
try
aqSLDMAIN.edit;
frmClsldDjsh.showmodal;
finally
frmClsldDjsh.free;
end;
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -