mrcpckcx.pas

汽配管理系统 数据库：Access ODBC user 操作员 密码 mr 111

unit mrcpckcx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Grids, DBGrids;

type
  Tcpckcx = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBGrid1: TDBGrid;
    Table1id: TAutoIncField;
    Table1cpbh: TStringField;
    Table1cpmc: TStringField;
    Table1cpxh: TStringField;
    Table1cpbs: TStringField;
    Table1rdate: TDateTimeField;
    Table1jsr: TStringField;
    Table1dan: TStringField;
    Table1shuliang: TStringField;
    Table1cx: TStringField;
    Table1cd: TStringField;
    Table1khbh: TStringField;
    Table1khqc: TStringField;
    Table1lxdh: TStringField;
    Table1ling: TFloatField;
    Table1je: TFloatField;
    Table1ying: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cpckcx: Tcpckcx;

implementation
var tuihou:string;
{$R *.DFM}

procedure Tcpckcx.FormCreate(Sender: TObject);
begin
table1.databasename:='moed';
table1.tablename:='chanck';
table1.open;
end;
procedure Tcpckcx.Button1Click(Sender: TObject);    //查询
begin
 table1.filtered:=true;
 table1.filter:=format(tuihou+'='+'''%s''',[edit1.text]);
end;
procedure Tcpckcx.Button2Click(Sender: TObject);    //刷新
begin
 table1.filtered:=false;
end;
procedure Tcpckcx.ComboBox1Click(Sender: TObject);   //选择查询字段
begin
case combobox1.ItemIndex of
   0:begin
     tuihou:='cpbh';
     end;
   1:begin
     tuihou:='cpmc';
     end;
   2:begin
     tuihou:='cpxh';
     end;
   3:begin
     tuihou:='khbh';
     end;
   4:begin
     tuihou:='khqc';
     end;
   5:begin
     tuihou:='jsr';
     end;
end;
end;
procedure Tcpckcx.FormShow(Sender: TObject);  //设置默认查询字段
begin
 Combobox1.itemindex:=0;
 edit1.text:='';
 tuihou:='cpbh';
end;
procedure Tcpckcx.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin     //回车移动焦点
   PerForm(WM_Nextdlgctl,0,0);
   end;
end;
procedure Tcpckcx.Button3Click(Sender: TObject);   //退出
begin
close;
end;
end.