【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“cxrkd.pas”一文，供大家参考学习!
unit cxrkd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ComCtrls, ExtCtrls, DB, ADODB, TreeViewCkkw;
type
TfrmCxrkd = class(TForm)
ADOConnection1: TADOConnection;
BtnOk: TButton;
BtnCancel: TButton;
ADOQuery: TADOQuery;
GroupBox4: TGroupBox;
Label2: TLabel;
Label11: TLabel;
EdtDjbh: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
Label3: TLabel;
lblWldw: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
EdtWldm: TEdit;
EdtWlsl: TEdit;
EdtWlmc: TEdit;
EdtWlph: TEdit;
GroupBox3: TGroupBox;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
EdtBmdm: TEdit;
EdtBmmc: TEdit;
EdtWbJsrgh: TEdit;
EdtWbJsrxm: TEdit;
EdtRklx: TEdit;
EdtScrq: TEdit;
GroupBox2: TGroupBox;
Label12: TLabel;
Label13: TLabel;
EdtCkmc: TEdit;
EdtKwmc: TEdit;
Label15: TLabel;
EdtCkglygh: TEdit;
Label16: TLabel;
EdtCkglyxm: TEdit;
GroupBox5: TGroupBox;
Label17: TLabel;
EdtCxyy: TEdit;
Label18: TLabel;
DTPCxrq: TDateTimePicker;
Label19: TLabel;
EdtRkrq: TEdit;
Label20: TLabel;
EdtJsrgh: TEdit;
Label21: TLabel;
EdtJsrxm: TEdit;
EdtJylsh: TEdit;
Label14: TLabel;
btnCxkcyd: TButton;
procedure btnCxkcydClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BtnCancelClick(Sender: TObject);
procedure BtnOkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmCxrkd: TfrmCxrkd;
implementation
uses publicUnit,kcyd,ADOInt;
{$R *.dfm}
//显示查询物料属性窗口，供用户选择输入物料代码和名称
procedure TfrmCxrkd.btnCxkcydClick(Sender: TObject);
var
kcyd:TKcyd ; //获得返回值的数据结构
begin
kcyd := showCxkcyd(KCYD_RK) ; //查询系统中的入库库存异动单并获得用户选择的结果
if kcyd.jylsh = '' then //返回值中没有选择库存异动单则退出
exit;
//以下根据返回值设置各输入框的值
EdtJylsh.Text := kcyd.jylsh ;
EdtRklx.Text := kcyd.jymc;
EdtDjbh.Text := kcyd.djbh ;
EdtWldm.Text := kcyd.wldm;
EdtWlmc.Text := kcyd.wlmc ;
EdtWlsl.Text := FloatToStr(kcyd.wlsl);
lblWldw.Caption := kcyd.jldw;
EdtWlph.Text := kcyd.wlph ;
EdtScrq.Text := DateToStr(kcyd.scrq);
EdtBmdm.Text := kcyd.wllyhqxdm;
EdtBmmc.Text := kcyd.wllyhqubmmc;
EdtWbJsrgh.Text := kcyd.wbjsrdm ;
EdtWbJsrxm.Text := kcyd.wbjsrxm ;
EdtCkmc.Text := kcyd.ckmc;
EdtKwmc.Text := kcyd.kwmc;
EdtCkglygh.Text := kcyd.ckglydm;
EdtCkglyxm.Text := kcyd.ckglyxm;
EdtRkrq.Text := DateToStr(kcyd.fsrq);
DTPCxrq.MinDate := kcyd.fsrq ;
BtnOk.Enabled := true; //可以提交撤销入库单
end;
procedure TfrmCxrkd.FormCreate(Sender: TObject);
begin
ADOConnection1.ConnectionString := getADOConnnectString ;
EdtJylsh.Enabled := false;
EdtRklx.Enabled := false;
EdtDjbh.Enabled := false;
EdtWldm.Enabled := false;
EdtWlmc.Enabled := false;
EdtWlsl.Enabled := false;
EdtWlph.Enabled := false;
EdtScrq.Enabled := false;
EdtBmdm.Enabled := false;
EdtBmmc.Enabled := false;
EdtWbJsrgh.Enabled := false;
EdtWbJsrxm.Enabled := false;
EdtCkmc.Enabled := false;
EdtKwmc.Enabled := false;
EdtCkglygh.Enabled := false;
EdtCkglyxm.Enabled := false;
EdtRkrq.Enabled := false;
EdtCxyy.Enabled := true;
EdtJsrgh.Enabled := false;
EdtJsrxm.Enabled := False;
EdtJsrgh.Text :=NowUser.ID;
EdtJsrxm.Text :=NowUser.Name;
BtnOk.Enabled := false ;
DTPCxrq.MaxDate := now;
DTPCxrq.MinDate := now;
end;
procedure TfrmCxrkd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmCxrkd.BtnCancelClick(Sender: TObject);
begin
Close;
end;
procedure TfrmCxrkd.BtnOkClick(Sender: TObject);
var
strSQl:string;
begin
if messageDlg('请求撤销入库单吗？' + #13#10 +
'交易流水号:' + EdtJylsh.Text + #13#10 +
'交易类型:' + EdtRklx.Text + #13#10 +
'单据编号:' + EdtDjbh.Text + #13#10 +
'物料编号:' + EdtWldm.Text + #13#10 +
'物料名称:' + EdtWlmc.Text + #13#10 +
'数量:' + EdtWlsl.Text + lblWldw.Caption + #13#10 +
'批号:' + EdtWlph.Text + #13#10 +
'生产日期:' + DateTimeToStr(DTPCxrq.DateTime) + #13#10 +
'来源部门:' + EdtBmmc.Text + #13#10 +
'外部经手人:' + EdtWbJsrxm.Text + #13#10 +
'入库单位及库位:' + EdtCkmc.Text + EdtKwmc.Text + #13#10 +
'入库经手人:' + EdtJsrxm.Text + #13#10 +
'撤销人:' + EdtCkglyxm.Text + #13#10 +
'撤销原因:' + EdtCxyy.Text ,
mtInformation ,[mbYes ,mbNo],MB_YESNO )=mrYes then // 用户确认撤销
begin
strSQl := 'update 库存异动 set 撤销 = true , 撤销人代码= ''' + trim(EdtCkglygh.Text) + ''' ,撤销原因=''' +
trim(EdtCxyy.Text) + ''',撤销日期= # ' + trim(DateToStr(DTPCxrq.Date)) + '# where ' +
'交易流水号 = ' + trim(EdtJylsh.Text) + ' and not 撤销 and not 已入帐' ;
try
ADOQuery.SQL.Clear ;
ADOQuery.SQL.Add(strSQl);
ADOQuery.ExecSQL;
ADOQuery.Close ;
except
on E:exception do
begin
showMessage('撤销入库记录时发生错误！' + #13#10 + '错误信息：' + E.Message);
exit;
end;
end;
showMessage('入库单已撤销!');
EdtJylsh.Text := '';
EdtRklx.Text := '';
EdtDjbh.Text := '';
EdtWldm.Text := '';
EdtWlmc.Text := '';
EdtWlsl.Text := '';
lblWldw.Caption := '';
EdtWlph.Text := '';
EdtScrq.Text := '';
EdtBmdm.Text := '';
EdtBmmc.Text := '';
EdtWbJsrgh.Text := '';
EdtWbJsrxm.Text := '';
EdtCkmc.Text := '';
EdtKwmc.Text := '';
EdtCkglygh.Text := '';
EdtCkglyxm.Text := '';
EdtRkrq.Text := '';
BtnOk.Enabled := False ; //提交成功之后，不能再撤销词入库单
end;
end;
end.
上一篇：
cxgwpz.pas
下一篇：
网络能耗监测系统管理端的研究与实现
2013-9-1
