jbxx_gys_xxcxform.pas

这是用Delphi编写的维修管理系统。主要功能包括业务管理

unit JBXX_GYS_XXCXFORM;

interface

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

type
  TJBXX_GYS_XXCX = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label9: TLabel;
    Label10: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TStringField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TStringField;
    ADOTable1DSDesigner8: TStringField;
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRShape1: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRLabel8: TQRLabel;
    QRShape15: TQRShape;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRSysData1: TQRSysData;
    procedure Edit1Enter(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JBXX_GYS_XXCX: TJBXX_GYS_XXCX;

implementation

uses  MRWX_BB;

{$R *.DFM}

procedure TJBXX_GYS_XXCX.Edit1Enter(Sender: TObject);
begin
tedit(sender).color:=claqua;

end;

procedure TJBXX_GYS_XXCX.Edit4Exit(Sender: TObject);
begin
tedit(sender).color:=clwindow;

end;

procedure TJBXX_GYS_XXCX.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
   if (activecontrol is Tedit) then
     Perform(WM_nextdlgctl,0,0);
end;

end;

procedure TJBXX_GYS_XXCX.BitBtn1Click(Sender: TObject);
var cahi:array[0..8] of string;
    cahi1:array[0..8] of string;
    cahi2:array[0..8] of string;
begin
    if edit1.text<>'' then cahi[1]:=format('商家编号'+'='+'''%s''',[edit1.text])
       else cahi[1]:='';
    if edit2.text<>'' then cahi[2]:=format('商家名称'+'='+'''%s''',[edit2.text])
       else cahi[2]:='';
    if edit3.text<>'' then cahi[3]:=format('联系电话'+'='+'''%s''',[edit3.text])
       else cahi[3]:='';
    if edit4.text<>'' then cahi[4]:=format('传真'+'='+'''%s''',[edit4.text])
       else cahi[4]:='';
    if edit5.text<>'' then cahi[5]:=format('邮编'+'='+'''%s''',[edit5.text])
       else cahi[5]:='';
    if edit6.text<>'' then cahi[6]:=format('联系人'+'='+'''%s''',[edit6.text])
       else cahi[6]:='';
    if edit7.text<>'' then cahi[7]:=format('联系人电话'+'='+'''%s''',[edit7.text])
       else cahi[7]:='';
    if edit8.text<>'' then cahi[8]:=format('地址'+'='+'''%s''',[edit8.text])
       else cahi[8]:='';
    if (cahi[1]='') or (cahi[2]='') then
       cahi1[0]:='' else cahi1[0]:=' and ';
    if (cahi[3]='') or (cahi[4]='') then
       cahi1[1]:='' else cahi1[1]:=' and ';
    if (cahi[5]='') or (cahi[6]='') then
       cahi1[2]:='' else cahi1[2]:=' and ';
    if (cahi[7]='') or (cahi[8]='') then
       cahi1[3]:='' else cahi1[3]:=' and ';
    cahi1[5]:=cahi[1]+cahi1[0]+cahi[2];
    cahi1[6]:=cahi[3]+cahi1[1]+cahi[4];
    cahi1[7]:=cahi[5]+cahi1[2]+cahi[6];
    cahi1[8]:=cahi[7]+cahi1[3]+cahi[8];
    if (cahi1[5]='') or (cahi1[6]='') then
        cahi1[0]:='' else cahi1[0]:=' and ';
    if (cahi1[7]='') or (cahi1[8]='') then
        cahi1[1]:='' else cahi1[1]:=' and ';
    cahi2[0]:=cahi1[5]+cahi1[0]+cahi1[6];
    cahi2[1]:=cahi1[7]+cahi1[1]+cahi1[8];
    if (cahi2[0]='') or (cahi2[1]='') then
        cahi2[2]:='' else cahi2[2]:=' and ';
    cahi2[8]:=cahi2[0]+cahi2[2]+cahi2[1];
    adotable1.filter:=cahi2[8];
    adotable1.filtered:=true;

end;

procedure TJBXX_GYS_XXCX.BitBtn3Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
adotable1.Filtered:=false;


end;

procedure TJBXX_GYS_XXCX.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
animatewindow(handle,300,AW_VER_NEGATIVE+AW_HOR_POSITIVE+AW_HIDE);
JBXX_GYS_XXCX.release;
JBXX_GYS_XXCX:=nil;

end;



procedure TJBXX_GYS_XXCX.FormShow(Sender: TObject);
begin
animatewindow(handle,200,AW_VER_NEGATIVE-AW_HOR_POSITIVE);
dbgrid1.Columns[0].Width:=dbgrid1.Columns[0].Width+1;
label1.Left:=label1.Left+1;
label2.Left:=label2.Left+1;
label3.Left:=label3.Left+1;
label4.Left:=label4.Left+1;
label5.Left:=label5.Left+1;
label6.Left:=label6.Left+1;
label7.Left:=label7.Left+1;
label8.Left:=label8.Left+1;
label9.Left:=label9.Left+1;
label10.Left:=label10.Left+1;
bevel1.Left:=bevel1.Left+1;
bevel2.Left:=bevel2.Left+1;

end;

procedure TJBXX_GYS_XXCX.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TJBXX_GYS_XXCX.BitBtn2Click(Sender: TObject);
begin
    if not assigned(mr_wxbb) then begin
       mr_wxbb:=tmr_wxbb.create(self);
    end;
    mr_wxbb.show;
    QuickRep1.Preview;

end;

procedure TJBXX_GYS_XXCX.QuickRep1Preview(Sender: TObject);
begin
mr_wxbb.qrpreview1.qrprinter:=quickrep1.qrprinter;

end;


end.