【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：JBXX_GYS_XXCXFORM.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    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]=