mrcpckth.~pas

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

unit mrcpckth;

interface

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

type
  Tcpckth = class(TForm)
    Table1: TTable;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox3: TGroupBox;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    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;
    Table1id: TAutoIncField;
    Table2: TTable;
    Table2cpbh: TStringField;
    Table2cpmc: TStringField;
    Table2cpxh: TStringField;
    Table2cpbs: TStringField;
    Table2rdate: TDateTimeField;
    Table2jsr: TStringField;
    Table2tdate: TDateTimeField;
    Table2tui: TStringField;
    Table2dan: TStringField;
    Table2shuliang: TStringField;
    Table2cx: TStringField;
    Table2cd: TStringField;
    Table2khbh: TStringField;
    Table2khqc: TStringField;
    Table2lxdh: TStringField;
    Table2ling: TFloatField;
    Table2je: TFloatField;
    Table2ying: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cpckth: Tcpckth;

implementation

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

procedure Tcpckth.FormCreate(Sender: TObject);  //初始化
begin
 table1.DatabaseName:='moed';
 table1.tablename:='chanck';
 table1.open;
 table2.databasename:='moed';
 table2.tablename:='chanth';
 table2.open;
end;
procedure Tcpckth.FormShow(Sender: TObject);
begin
 Combobox1.itemindex:=0;
 edit1.text:='';
 tuihou:='cpbh';
end;
procedure Tcpckth.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 Tcpckth.BitBtn2Click(Sender: TObject); //刷新
begin
table1.Filtered:=false;
end;
procedure Tcpckth.BitBtn1Click(Sender: TObject); //查询
begin
table1.filtered:=true;
table1.filter:=format(tuihou+'='+'''%s''',[edit1.text]);
end;
procedure Tcpckth.FormClose(Sender: TObject; var Action: TCloseAction);
begin
cpckth.Release;
cpckthsl.release;
end;
procedure Tcpckth.BitBtn3Click(Sender: TObject); //退货
begin
if table1.fieldbyname('cpmc').asstring<>'' then begin
  if messagedlg('您真的要退货吗！', mtInformation,[mbyes,mbno],0)=mryes then begin
    cpckthsl.showmodal;   //调入退货数量输入窗体
end;
end;
end;

procedure Tcpckth.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then begin
  table1.filtered:=true;
  table1.filter:=format(tuihou+'='+'''%s''',[edit1.text]);
  end;
end;
procedure Tcpckth.BitBtn4Click(Sender: TObject);
begin
close;
end;
end.