【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-ckgl_Find_U.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
{
unit name : ckgl_Find_U
Author : 李涛
Create date: 2004-08-03 11:15:23
description: 出库单据查询单元
}
unit ckgl_Find_U;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Base_Form_U, QRCtrls, QuickRpt, StdCtrls, Buttons, ExtCtrls,
ComCtrls, DB, ADODB, Grids, DBGrids;
type
Tckgl_Find = class(TBase_Form)
DBGrid1: TDBGrid;
ckgl_ADO: TADOQuery;
ckgl_ADOC_xs_code: TStringField;
ckgl_ADOdt_xssj: TDateTimeField;
ckgl_ADOdec_xssl: TBCDField;
ckgl_ADOdec_ysje: TBCDField;
ckgl_ADOdec_ssje: TBCDField;
ckgl_ADOgzz: TStringField;
ckgl_ADOc_gzz: TStringField;
ckgl_ADOc_xs_ck: TStringField;
ckgl_ADOck: TStringField;
ckgl_ADOc_xslb: TStringField;
ckgl_ADOczy: TStringField;
ckgl_ADOc_czy: TStringField;
ckgl_ADOdt_djsj: TDateTimeField;
ckgl_ADOc_bz: TStringField;
ckgl_ADOC_sh: TStringField;
ckgl_ADOsh: TStringField;
sygl_DataSource: TDataSource;
CK_ADO: TADOQuery;
czy_ADO: TADOQuery;
czy_ADOLogid: TStringField;
czy_ADOChinesename: TStringField;
Sub_ADO: TADOQuery;
GZZ_ADO: TADOQuery;
DateTimePicker1: TDateTimePicker;
Label2: TLabel;
DateTimePicker3: TDateTimePicker;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel11: TQRLabel;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRLabel12: TQRLabel;
QRExpr1: TQRExpr;
QRExpr2: TQRExpr;
QRExpr3: TQRExpr;
procedure Edit_BitClick(Sender: TObject);
procedure Query_BitClick(Sender: TObject);
procedure Print_BitClick(Sender: TObject);
procedure Del_BitClick(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure FormShow(Sender: TObject);
private
KS,JZ: TDateTime;
{ Private declarations }
public
{ Public declarations }
end;
var
ckgl_Find: Tckgl_Find;
implementation
uses PublicQuery_u, MainForm_U, ckgl_info_Browser_u;
{$R *.dfm}
procedure Tckgl_Find.Edit_BitClick(Sender: TObject);
begin
inherited;
KS:=DateTimePicker1.Date+StrToTime('00:00:00');
JZ:=DateTimePicker3.Date+StrToTime('23:59:59');
with ckgl_ADO do
begin
Close;
parameters.ParamByName('ks').Value:=KS;
parameters.ParamByName('jz').Value:=jz;
Open;
end;
end;
procedure Tckgl_Find.Query_BitClick(Sender: TObject);
begin
inherited;
PublicQuery.ADO_name:='ckgl_ADO';
PublicQuery.ShowModal;
end;
procedure Tckgl_Find.Print_BitClick(Sender: TObject);
begin
if (ckgl_ADO.Active) and (ckgl_ADO.RecordCount>0) then
begin
with Sub_ADO do
begin
Close;
SQL.Clear;
SQL.Add('Exec Find_kc_ck_sub '''+ckgl_ADO.FieldByName('C_xs_code').AsString+'''');
Open;
end;
inherited;
end;
end;
procedure Tckgl_Find.Del_BitClick(Sender: TObject);
begin
inherited;
if (ckgl_ADO.Active) and (ckgl_ADO.RecordCount>0) then
begin
if ckgl_ADO.FieldByName('C_sh').AsString='0' then
if MessageDLg('您确认要审核['+ckgl_ADO.FieldByName('C_xs_code').AsString+']号出库单据!!',mtCustom,[mbYes,mbNo],0)=mrYes then
begin
Try
MainForm.ADOConnection1.BeginTrans;
ckgl_ADO.Edit;
ckgl_ADO.FieldByName('C_sh').AsString:='1';
ckgl_ADO.Post;
//更新库存数据信息!!
with Sub_ADO do
begin
Close;
SQL.Clear;
SQL.Add('Exec KC_ck_proc '''+ckgl_ADO.FieldByName('C_xs_code').AsString+'''');
ExecSQL;
end;
MainForm.ADOConnection1.CommitTrans;
ShowMessage('审核成功!!');
Except
MainForm.ADOConnection1.RollbackTrans;
SHowMessage('审核失败!!');
end;
end;
end;
end;
procedure Tckgl_Find.DBGrid1DblClick(Sender: TObject);
begin
inherited;
if (ckgl_ADO.Active) and (ckgl_ADO.RecordCount>0) then
if not Assigned(ckgl_info_Browser) then
begin
ckgl_info_Browser:=Tckgl_info_Browser.Create(Self);
if ckgl_ADO.FieldByName('C_sh').AsString='1' then
begin
ckgl_info_Browser.ADD_Bit.Enabled:=False;//审核过的单据不能修改
ckgl_info_Browser.GroupBox1.Enabled:=False;
ckgl_info_Browser.DJ_StringGrid.Enabled:=False;
end;
ckgl_info_Browser.State:='update';
//----------提取单据信息---------------------------------------------------
ckgl_info_Browser.ckdh:=ckgl_ADO.FieldByName('C_xs_code').AsString; //出库单据号
ckgl_info_Browser.Edit3.Text:=ckgl_ADO.FieldByName('C_xs_code').AsString; //出库单据号
ckgl_info_Browser.Edit2.Text:=ckgl_ADO.FieldByName('C_xslb').AsString; //出库类别
ckgl_info_Browser.Label13.Caption:=ckgl_ADO.FieldByName('czy').Asstring; //操作员
ckgl_info_Browser.Edit1.Text:=ckgl_ADO.FieldByName('dec_ssje').AsString; //实收金额
ckgl_info_Browser.DateTimePicker1.Date:=StrToDateTime(ckgl_ADO.FieldByName('dt_xssj').AsString); //出库日期
ckgl_info_Browser.DBLookupComboBox1.KeyValue:=ckgl_ADO.FieldByName('C_xs_ck').AsString; //出库仓库
ckgl_info_Browser.Edit5.Text:=ckgl_ADO.FieldByName('C_bz').AsString; //出货备注
//-------------------------------------------------------------------------
ckgl_info_Browser.ShowModal;
//Edit_Bit.Click;
end;
end;
procedure Tckgl_Find.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
if ckgl_ADO.FieldByName('c_sh').AsString='0' then
DBGrid1.Canvas.Font.color:=clRed
else
DBGrid1.Canvas.Font.Color:=clWindowText;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
procedure Tckgl_Find.FormShow(Sender: TObject);
begin
inherited;
DateTimePicker1.Date:=Date-1;
DateTimePicker3.Date:=Date;
end;
end.
上一篇:
FrmCheckStore.frm
下一篇:
关于广告设计人才培养模式研究