ywgl_shfwform.pas

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

unit YWGL_SHFWFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;

type
  TYWGL_SHFW = class(TForm)
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel2: TBevel;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    ADOQuery2DSDesigner: TStringField;
    ADOQuery2DSDesigner2: TDateTimeField;
    ADOQuery2DSDesigner3: TStringField;
    ADOQuery2DSDesigner4: TStringField;
    ADOQuery2DSDesigner5: TStringField;
    ADOQuery2DSDesigner6: TStringField;
    BitBtn3: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_SHFW: TYWGL_SHFW;

implementation

uses  YWGL_SHFW_TJFORM, YWGL_SHFW_WHCXFORM;

{uses MRWX_FUCX, MRWX_FWDJ; }

{$R *.DFM}
procedure TYWGL_SHFW.FormCreate(Sender: TObject);
var metricsy:integer;
begin
metricsy:=getsystemmetrics(sm_cyscreen);
if metricsy>600 then begin
   height:=height+100;
   dbgrid2.Height:=dbgrid2.Height+100;
end else begin
   constraints.MaxHeight:=440;
end;
end;

procedure TYWGL_SHFW.FormShow(Sender: TObject);
begin
       animatewindow(handle,200,AW_VER_NEGATIVE-AW_HOR_POSITIVE);
       dbgrid1.Refresh;
       dbgrid2.Refresh;
       label1.Refresh;
       label2.refresh;
       bevel1.Refresh;
       bevel2.Refresh;
//------------------------------------------------------------------------------
       adoquery1.Close;
       adoquery1.SQL.clear;
       adoquery1.sql.add('select * from 客户取机');
       adoquery1.SQL.add('where 维护到期 >= :dd');
       adoquery1.Parameters.ParamByName('dd').datatype:=ftdate;
       adoquery1.Parameters.ParamByName('dd').value:=date;
       adoquery1.open;
//-------------------------------------------------------------------------------
end;

procedure TYWGL_SHFW.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if adoquery1.RecordCount>0 then begin
    edit1.text:=adoquery1.fieldbyname('单号').asstring;
    adoquery2.close;
    adoquery2.sql.clear;
    adoquery2.sql.add('select * from 售后服务登记');
    adoquery2.sql.add('where 单号= :dh');
    adoquery2.Parameters.ParamByName('dh').datatype:=ftstring;
    adoquery2.Parameters.ParamByName('dh').value:=edit1.text;
    adoquery2.Open;
    edit2.text:=inttostr(adoquery2.RecordCount)+'次维护';
end;
end;

procedure TYWGL_SHFW.BitBtn1Click(Sender: TObject);
begin
if tbitbtn(sender).caption='刷   新[&S]' then begin
   tbitbtn(sender).caption:='售后查询[&S]';
   adoquery1.filtered:=false;
end else begin
   YWGL_SHFW_WHCX.SHOW;
end;

end;

procedure TYWGL_SHFW.BitBtn2Click(Sender: TObject);
begin
       if adoquery1.RecordCount=0 then begin
           showmessage('无售后产品记录');
           exit;
       end;
           YWGL_SHFW_TJ.SHOW;
           YWGL_SHFW_TJ.EDIT1.TEXT:= ADOQuery1.fieldbyname('单号').ASSTRING;
           YWGL_SHFW_TJ.DBCOMBOBOX1.SetFocus;
end;

procedure TYWGL_SHFW.DBGrid1DblClick(Sender: TObject);
begin
      bitbtn2.Click;
end;

procedure TYWGL_SHFW.BitBtn3Click(Sender: TObject);
begin
close;
end;

end.