【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“main_xjgl_tjcxform.pas”一文，供大家参考学习!

    unit main_xjgl_tjcxform;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Db, DBTables, StdCtrls, Buttons, Grids, ExtCtrls, DBGrids;
    
    type
      Tmain_xjgl_tjcx = class(TForm)
        DBGrid1: TDBGrid;
        Panel1: TPanel;
        Label4: TLabel;
        GroupBox2: TGroupBox;
        Memo1: TMemo;
        GroupBox1: TGroupBox;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        ComboBox1: TComboBox;
        ComboBox2: TComboBox;
        Edit1: TEdit;
        ComboBox3: TComboBox;
        StringGrid1: TStringGrid;
        GroupBox3: TGroupBox;
        BitBtn1: TBitBtn;
        BitBtn4: TBitBtn;
        BitBtn5: TBitBtn;
        BitBtn6: TBitBtn;
        BitBtn2: TBitBtn;
        BitBtn3: TBitBtn;
        DataSource1: TDataSource;
        Query1: TQuery;
        Query1BDEDesigner: TStringField;
        Query1BDEDesigner2: TStringField;
        Query1BDEDesigner3: TStringField;
        Query1BDEDesigner4: TStringField;
        Query1BDEDesigner5: TStringField;
        Query1BDEDesigner6: TStringField;
        Query1BDEDesigner7: TStringField;
        Query1BDEDesigner8: TStringField;
        Query1BDEDesigner9: TStringField;
        Query1BDEDesigner10: TStringField;
        Query1BDEDesigner11: TStringField;
        procedure BitBtn5Click(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure ComboBox1Click(Sender: TObject);
        procedure ComboBox2Click(Sender: TObject);
        procedure Edit1Change(Sender: TObject);
        procedure BitBtn6Click(Sender: TObject);
        procedure BitBtn3Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure Edit1KeyPress(Sender: TObject; var Key: Char);
        procedure BitBtn1KeyPress(Sender: TObject; var Key: Char);
        procedure FormShow(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure DBGrid1DblClick(Sender: TObject);
      private
        { Private declarations }
        str0,str1,str2:string;
      public
        { Public declarations }
      end;
    
    var
      main_xjgl_tjcx: Tmain_xjgl_tjcx;
    
    implementation
    
    uses xjprintform, main_xfgl_xxll_xjkpform, main_xjgl_bbdyform;
    
    {$R *.DFM}
    
    procedure Tmain_xjgl_tjcx.BitBtn5Click(Sender: TObject);
    begin
        stringgrid1.RowCount:=2;
        stringgrid1.Cells[0,stringgrid1.rowcount-1]:='';
        stringgrid1.Cells[1,stringgrid1.rowcount-1]:='';
        stringgrid1.Cells[2,stringgrid1.rowcount-1]:='';
        stringgrid1.Cells[3,stringgrid1.rowcount-1]:='';
       memo1.Text:='';
       label2.Enabled:=false;
       label3.Enabled:=false;
         combobox2.Enabled:=false;
         edit1.Enabled:=false;
       edit1.Text:='';
       bitbtn5.Enabled:=false;
        bitbtn6.Enabled:=false;
       combobox3.Enabled:=false;
    end;
    
    procedure Tmain_xjgl_tjcx.BitBtn1Click(Sender: TObject);
    begin
    
        stringgrid1.Cells[0,stringgrid1.rowcount-1]:=combobox1.Text;
        stringgrid1.Cells[1,stringgrid1.rowcount-1]:=combobox2.Text;
        stringgrid1.Cells[2,stringgrid1.rowcount-1]:=edit1.Text;
        if combobox2.Text='前含于' then
           str2:=edit1.Text+'%'
          else if combobox2.Text='后含于' then
           str2:='%'+edit1.Text
           else if combobox2.Text='含于' then
             str2:='%'+edit1.Text+'%'
             else
               str2:=edit1.Text;
        memo1.Lines.Add(str0+str1+''''+str2+'''');
        bitbtn5.Enabled:=true;
        combobox3.enabled:=true;
        bitbtn6.Enabled:=true;
    end;
    
    procedure Tmain_xjgl_tjcx.ComboBox1Click(Sender: TObject);
    begin
      str0:=combobox1.Text;
      label2.Enabled:=true;
      combobox2.Enabled:=true;
    end;
    
    procedure Tmain_xjgl_tjcx.ComboBox2Click(Sender: TObject);
    begin
      if combobox2.Text='不等于' then
        str1:='<>'
        else if combobox2.Text='等于' then
        str1:='='
        else
         str1:=' like ';
      edit1.Enabled:=true;
      label3.Enabled:=true;
    end;
    
    procedure Tmain_xjgl_tjcx.Edit1Change(Sender: TObject);
    begin
      if edit1.Text='' then
         bitbtn1.Enabled:=false
         else
          bitbtn1.Enabled:=true;
    
    end;
    
    procedure Tmain_xjgl_tjcx.BitBtn6Click(Sender: TObject);
    begin
      query1.close;
      query1.sql.Clear;
      query1.sql.Add('select * from xj where '+memo1.Text);
      if query1.Prepared=false then query1.Prepare;
      query1.open;
    
    end;
    
    procedure Tmain_xjgl_tjcx.BitBtn3Click(Sender: TObject);
    begin
     query1.close;
      query1.sql.Clear;
      query1.sql.Add('select * from xj');
      if query1.Prepared=false then query1.Prepare;
      query1.open;
    end;
    
    procedure Tmain_xjgl_tjcx.BitBtn2Click(Sender: TObject);
    begin
     // query1.close;
       main_xjgl_bbdy.Query1.close;
       main_xjgl_bbdy.Query2.close;
       main_xjgl_bbdy.query1.sql.Clear;
       main_xjgl_bbdy.query1.sql.Clear;
       main_xjgl_bbdy.Query1.sql:=query1.SQL;
       main_xjgl_bbdy.Query2.sql:=query1.SQL;
       main_xjgl_bbdy.query1.op