unit2.pas

利用Acess数据库

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, ComCtrls,  Menus, Db, StdCtrls, Buttons, ExtCtrls, Grids,
  DBGrids, DBCtrls, Mask, CheckLst;

type
  TNormal = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    Query1: TQuery;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DataSourceQry: TDataSource;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    DBMemo1: TDBMemo;
    BitBtn3: TBitBtn;
    DBNavigator1: TDBNavigator;
    Label5: TLabel;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label6: TLabel;
    StatusBar1: TStatusBar;
    Table1: TTable;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    TabSheet4: TTabSheet;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label35: TLabel;
    Label39: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    DataSource1: TDataSource;
    TabSheet2: TTabSheet;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    Label8: TLabel;
    DBEdit2: TDBEdit;
    Label9: TLabel;
    DBEdit3: TDBEdit;
    Label10: TLabel;
    DBEdit4: TDBEdit;
    Label11: TLabel;
    DBEdit5: TDBEdit;
    Label12: TLabel;
    DBEdit6: TDBEdit;
    Label13: TLabel;
    DBEdit7: TDBEdit;
    Label14: TLabel;
    DBMemo2: TDBMemo;
    Label15: TLabel;
    DBMemo3: TDBMemo;
    Label16: TLabel;
    DBEdit8: TDBEdit;
    Label17: TLabel;
    DBEdit9: TDBEdit;
    Label18: TLabel;
    DBEdit10: TDBEdit;
    Label19: TLabel;
    DBEdit11: TDBEdit;
    Label20: TLabel;
    DBEdit12: TDBEdit;
    Label21: TLabel;
    DBEdit13: TDBEdit;
    Label22: TLabel;
    DBEdit14: TDBEdit;
    Label23: TLabel;
    DBEdit15: TDBEdit;
    Label24: TLabel;
    DBEdit16: TDBEdit;
    Label25: TLabel;
    DBEdit17: TDBEdit;
    Label26: TLabel;
    DBEdit18: TDBEdit;
    Label27: TLabel;
    DBMemo4: TDBMemo;
    Label28: TLabel;
    DBEdit19: TDBEdit;
    Label33: TLabel;
    DBEdit20: TDBEdit;
    Label34: TLabel;
    DBEdit21: TDBEdit;
    Label36: TLabel;
    DataSourcedetail: TDataSource;
    Querydetail: TQuery;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    TabSheet5: TTabSheet;
    Label38: TLabel;
    Label40: TLabel;
    Label43: TLabel;
    Edit9: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    BitBtn8: TBitBtn;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TStringField;
    Table1BDEDesigner8: TMemoField;
    Table1BDEDesigner9: TMemoField;
    Table1BDEDesigner10: TStringField;
    Table1BDEDesigner11: TStringField;
    Table1BDEDesigner12: TStringField;
    Table1BDEDesigner13: TStringField;
    Table1BDEDesigner14: TStringField;
    Table1BDEDesigner15: TStringField;
    Table1BDEDesigner16: TStringField;
    Table1BDEDesigner17: TStringField;
    Table1BDEDesigner18: TStringField;
    Table1BDEDesigner19: TStringField;
    Table1BDEDesigner20: TStringField;
    Table1BDEDesigner21: TStringField;
    Table1BDEDesigner22: TMemoField;
    Table1BDEDesigner23: TDateTimeField;
    Table1BDEDesigner24: TStringField;
    Table1BDEDesigner25: TSmallintField;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    GroupBox1: TGroupBox;
    Label37: TLabel;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    CheckListBox1: TCheckListBox;
    Label44: TLabel;
    DBEdit22: TDBEdit;
    Edit15: TEdit;
    Label45: TLabel;
    Label46: TLabel;
    DBEdit23: TDBEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);

    { Private declarations }
  public
    { Public declarations }
    checkedflag:boolean; //为了解决页面的切换问题
    display:integer;
  end;

var
  Normal: TNormal;

implementation
uses
unit1,unit6,unit3,unit4,unit5, Unit9;

{$R *.DFM}

procedure TNormal.BitBtn1Click(Sender: TObject);
begin
  if (edit2.Text='') and  (edit15.Text='') and (edit3.Text='')and (combobox1.Text='') then
  begin
    Query1.close;
    Query1.sql.clear ;
    Query1.sql.Add('select 单位名称,联系电话,地址,行业分类,产品与服务,修改日期,单位代码,优先级,联系人 from company ');
    Query1.sql.Add('where 单位名称 like :name');
    case display of
    1:query1.SQL.Add('order by  单位代码 asc');
    2:query1.SQL.Add('order by  修改日期 desc');
    3:query1.SQL.Add('order by  优先级  asc');
    end;

    if edit1.text<>'' then
    Query1.paramByName('name').asstring:='*'+edit1.Text+'*'
    else
    Query1.paramByName('name').asstring:='*';
    Query1.Open;
  end
  else
    if (edit2.Text='') and  (edit1.Text='') and  (combobox1.Text='') then
    begin
    Query1.close;
    Query1.sql.clear ;
    Query1.sql.Add('select 单位名称,联系电话,地址,行业分类,产品与服务,修改日期,单位代码,优先级,联系人 from company ');
    Query1.sql.Add('where 产品与服务 like :service1 and 产品与服务 like :service2');
    case display of
    1:query1.SQL.Add('order by  单位代码 asc');
    2:query1.SQL.Add('order by  修改日期 desc');
    3:query1.SQL.Add('order by  优先级  asc');
    end;

    if edit3.text<>'' then
    Query1.paramByName('service1').asstring:='*'+edit3.Text+'*'
    else
    Query1.paramByName('service1').asstring:='*';
    if edit15.text<>'' then
    Query1.paramByName('service2').asstring:='*'+edit15.Text+'*'
    else
    Query1.paramByName('service2').asstring:='*';

    Query1.Open;
  end
  else
    with normal.Query1 do
     begin
     close;
     sql.Clear;
     sql.Add('select 单位名称,联系电话,地址,行业分类,产品与服务,修改日期,单位代码,优先级,联系人 from company ');
     sql.Add('where 单位名称 like :name And 地址 like :address  ');
     sql.Add('and 产品与服务 like :service1 and 产品与服务 like :service2');
     sql.Add('and 行业分类 like :industry ');
     case display of
    1:query1.SQL.Add('order by  单位代码 asc');
    2:query1.SQL.Add('order by  修改日期 desc');
    3:query1.SQL.Add('order by  优先级  asc');
    end;