【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“FCDJ_Find_u.pas”一文,供大家参考学习
{
unit name : FCDJ_Find_u
Author : 李涛
Create date: 2004-08-04 13:23:23
description: 商品退货反厂
查询.
}
unit FCDJ_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
TFCDJ_Find = class(TBase_Form)
DBGrid1: TDBGrid;
THGL_ADO: TADOQuery;
THGL_ADOc_thdh: TStringField;
THGL_ADOc_thgysbm: TStringField;
THGL_ADOdt_thrq: TDateTimeField;
THGL_ADOc_ckbm: TStringField;
THGL_ADOc_jsr: TStringField;
THGL_ADOc_czy: TStringField;
THGL_ADOc_djrq: TDateTimeField;
THGL_ADOc_bz: TStringField;
THGL_ADOC_th: TStringField;
THGL_ADOck: TStringField;
THGL_ADOgys: TStringField;
THGL_ADOjsr: TStringField;
THGL_ADOczy: TStringField;
THGL_ADOth: TStringField;
THGL_DataSource: TDataSource;
czy_ADO: TADOQuery;
GYS_ADO: TADOQuery;
GYS_ADOc_code: TStringField;
GYS_ADOc_name: TStringField;
CK_ADO: TADOQuery;
YG_ADO: TADOQuery;
YG_ADOC_code: TStringField;
YG_ADOC_name: TStringField;
Sub_ADO: TADOQuery;
Label2: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRShape2: TQRShape;
procedure Edit_BitClick(Sender: TObject);
procedure Query_BitClick(Sender: TObject);
procedure Print_BitClick(Sender: TObject);
procedure Del_BitClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FCDJ_Find: TFCDJ_Find;
implementation
uses PublicQuery_u, spthfc_info_Browser_u;
{$R *.dfm}
procedure TFCDJ_Find.Edit_BitClick(Sender: TObject);
var
KS,JZ: TDateTime;
begin
inherited;
KS:=DateTimePicker1.Date+StrToTime('00:00:00');
JZ:=DateTimePicker3.Date+StrToTime('23:59:59');
with thgl_ADO do
begin
Close;
parameters.ParamByName('ks').Value:=KS;
parameters.ParamByName('jz').Value:=jz;
Open;
end;
end;
procedure TFCDJ_Find.Query_BitClick(Sender: TObject);
begin
inherited;
PublicQuery.ADO_name:='THGL_ADO';
PublicQuery.ShowModal;
end;
procedure TFCDJ_Find.Print_BitClick(Sender: TObject);
begin
if (thgl_ADO.Active) and (thgl_ADO.RecordCount>0) then
begin
with Sub_ADO do
begin
Close;
SQL.Clear;
SQL.Add('Exec Find_kc_th_sub '''+thgl_ADO.FieldByName('C_thdh').AsString+'''');
Open;
end;
inherited;
end;
end;
procedure TFCDJ_Find.Del_BitClick(Sender: TObject);
begin
inherited;
if (thgl_ADO.Active) and (thgl_ADO.RecordCount>0) then
if thgl_ADO.FieldByName('C_th').AsString='0' then
if MessageDlg('确认要将['+thgl_ADO.FieldByName('C_thdh').asString+']审核吗?',mtCustom,[mbYes,mbNo],0)=mrYes then
begin
thgl_ADO.Edit;
thgl_ADO.FieldByName('C_th').Value:='1';
thgl_ADO.Post;
//存储过程。。。
end;
end;
procedure TFCDJ_Find.FormShow(Sender: TObject);
begin
inherited;
DateTimePicker1.Date:=Date-1;
DateTimePicker3.Date:=Date;
end;
procedure TFCDJ_Find.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
if thgl_ADO.FieldByName('C_th').AsString='0' then
DBGrid1.Canvas.Font.Color:=clRed
else
DBGrid1.Canvas.Font.Color:=clWindowText;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
procedure TFCDJ_Find.DBGrid1DblClick(Sender: TObject);
begin
inherited;
if (thgl_ADO.Active) and (thgl_ADO.RecordCount>0) then
if not Assigned(spthfc_info_Browser) then
begin
spthfc_info_Browser:=Tspthfc_info_Browser.Create(Self);
if thgl_ADO.FieldByName('C_th').AsString='1' then
begin
spthfc_info_Browser.ADD_Bit.Enabled:=False;//审核过的单据不能修改
spthfc_info_Browser.GroupBox1.Enabled:=False;
spthfc_info_Browser.DJ_StringGrid.Enabled:=False;
end;
spthfc_info_Browser.State:='update';
//----------提取单据信息---------------------------------------------------
spthfc_info_Browser.thdh:=thgl_ADO.FieldByName('C_thdh').AsString; //退货单据号
spthfc_info_Browser