【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供DBDJ_Find_u.pas参考,解决您在DBDJ_Find_u.pas学习中工作中的难题,参考学习。
{
unit name : DBDJ_Find_u
Author : 李涛
Create date: 2004-07-13 09:11:13
description: 库存调拨查询管理单元
}
unit DBDJ_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
TDBDJ_Find = class(TBase_Form)
DBGrid1: TDBGrid;
Dbgl_ADO: TADOQuery;
Dbgl_ADOc_dbdh: TStringField;
Dbgl_ADOdt_dbrq: TDateTimeField;
Dbgl_ADOdbry: TStringField;
Dbgl_ADOc_dbry: TStringField;
Dbgl_ADOdcck: TStringField;
Dbgl_ADOc_dcck: TStringField;
Dbgl_ADOdrck: TStringField;
Dbgl_ADOc_drck: TStringField;
Dbgl_ADOdt_djsj: TDateTimeField;
Dbgl_ADOc_czy: TStringField;
Dbgl_ADOczy: TStringField;
Dbgl_ADOC_bz: TStringField;
Dbgl_ADOC_sh: TStringField;
Dbgl_ADOsh: TStringField;
Dbgl_DataSource: TDataSource;
CK_ADO: TADOQuery;
czy_ADO: TADOQuery;
czy_ADOLogid: TStringField;
czy_ADOChinesename: TStringField;
YG_ADO: TADOQuery;
YG_ADOC_code: TStringField;
YG_ADOC_name: TStringField;
Sub_ADO: TADOQuery;
Label2: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
QRShape2: TQRShape;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
procedure Del_BitClick(Sender: TObject);
procedure Query_BitClick(Sender: TObject);
procedure Print_BitClick(Sender: TObject);
procedure Edit_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
{ Private declarations }
public
{ Public declarations }
end;
var
DBDJ_Find: TDBDJ_Find;
implementation
uses PublicQuery_u, Dbgl_info_Browser_U, MainForm_U;
{$R *.dfm}
procedure TDBDJ_Find.Del_BitClick(Sender: TObject);
var
KS,JZ: TDateTime;
begin
inherited;
KS:=DateTimePicker1.Date+StrToTime('00:00:00');
JZ:=DateTimePicker3.Date+StrToTime('23:59:59');
with Dbgl_ADO do
begin
Close;
parameters.ParamByName('ks').Value:=KS;
parameters.ParamByName('jz').Value:=jz;
Open;
end;
end;
procedure TDBDJ_Find.Query_BitClick(Sender: TObject);
begin
inherited;
PublicQuery.ADO_name:='Dbgl_ADO';
PublicQuery.ShowModal;
end;
procedure TDBDJ_Find.Print_BitClick(Sender: TObject);
begin
if (dbgl_ADO.Active) and (dbgl_ADO.RecordCount>0) then
inherited;
end;
procedure TDBDJ_Find.Edit_BitClick(Sender: TObject);
begin
inherited;
if (Dbgl_ADO.Active) and (Dbgl_ADO.RecordCount>0) then
if Dbgl_ADO.FieldByName('c_sh').AsString='0' then
if MessageDlg('您确认要审核['+Dbgl_ADO.FieldByName('c_dbdh').AsString+']号调拨单据吗?',mtCustom,[mbYes,mbNo],0)=mrYes then
begin
Try
MainForm.ADOConnection1.BeginTrans;
Dbgl_ADO.Edit;
Dbgl_ADO.FieldByName('C_sh').Value:='1';
Dbgl_ADO.Post;
with Sub_ADO do
begin
Close;
SQL.Clear;
SQL.Add('Exec KC_db_proc '''+Dbgl_ADO.FieldByName('c_dbdh').AsString+'''');
ExecSQL;
end;
MainForm.ADOConnection1.CommitTrans;
except
MainForm.ADOConnection1.RollbackTrans;
ShowMessage('审核失败!!');
end;
end;
end;
procedure TDBDJ_Find.DBGrid1DblClick(Sender: TObject);
begin
inherited;
if (dbgl_ADO.Active) and (dbgl_ADO.RecordCount>0) then
if not Assigned(dbgl_info_Browser) then
begin
dbgl_info_Browser:=Tdbgl_info_Browser.Create(Self);
if Dbgl_ADO.FieldByName('c_sh').AsString='1' then
begin
dbgl_info_Browser.ADD_Bit.Enabled:=False;//审核过的单据不能修改
dbgl_info_Browser.GroupBox1.Enabled:=False;
dbgl_info_Browser.DJ_StringGrid.Enabled:=False;
end;
dbgl_info_Browser.State:='update';
//----------提取单据信息---------------------------------------------------
dbgl_info_Browser.dbdh:=dbgl_ADO.FieldByName('C_dbdh').AsString; //调拨单据号
dbgl_info_Browser.Edit3.Text:=dbgl_ADO.FieldByName('C_dbdh').AsString; //调拨单据号
dbgl_info_Browser.Label13.Caption:=Dbgl_ADO.FieldByName('czy').AsString; //操作员
dbgl_info_Browser.dbr_code:=dbgl_ADO.FieldByName('C_dbry').AsString; //调拨人编码
dbgl_info_Browser.dbr_name:=dbgl_ADO.FieldByName('dbry').AsString; //调拨人
dbgl_info_Browser.Edit2.Text:=dbgl_ADO.FieldByName('dbry').AsString; //调拨人
dbgl_info_Browser.DateTimePicker1.Date:=StrToDateTime(dbgl_ADO.FieldByName('dt_dbrq').AsString); //调拨日期
dbgl_info_Browser.DBLookupComboBox2.KeyValue:=dbgl_ADO.FieldByName('C_dcck').AsString; //调出仓库
dbgl_info_Browser.DBLookupComboBox1.KeyValue:=dbgl_ADO.FieldByName('C_drck').AsString; //调入仓库
dbgl_info_Browser.Edit5.Text:=dbgl_ADO.FieldByName('C_bz').AsString; //调拨备注
//-------------------------------------------------------------------------
dbgl_info_Browser.ShowModal;
end;
end;
procedure TDBDJ_Find.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
if Dbgl_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 TDBDJ_Find.FormShow(Sender: TObject);
begin
inherited;
DateTimePicker1.Date:=Date-1;
DateTimePicker3.Date:=Date;
end;
end.
上一篇:
DBClipBoard.pas
下一篇:
电咖汽车入选2018独角兽企业榜百强 发布“天际”品牌将推高估值