machinetest.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit machinetest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, DBTables, StdCtrls, Mask, DBCtrls, Grids, DBGrids,
  ExtCtrls, ADODB;

type
  TForm_machinetest = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    btn_first: TButton;
    btn_prev: TButton;
    btn_next: TButton;
    btn_last: TButton;
    btn_addnew: TButton;
    btn_delete: TButton;
    btn_edit: TButton;
    btn_save: TButton;
    btn_cancel: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    GroupBox2: TGroupBox;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox15: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox17: TDBCheckBox;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    GroupBox3: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label39: TLabel;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    DBEdit41: TDBEdit;
    DBEdit42: TDBEdit;
    DBEdit43: TDBEdit;
    DBEdit44: TDBEdit;
    DBEdit45: TDBEdit;
    DBEdit46: TDBEdit;
    DBEdit47: TDBEdit;
    DBEdit48: TDBEdit;
    DBCheckBox18: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    DBCheckBox23: TDBCheckBox;
    GroupBox4: TGroupBox;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBEdit50: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit51: TDBEdit;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label35: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    btn_filterfield: TButton;
    Button2: TButton;
    btn_filterrecord: TButton;
    Label44: TLabel;
    dbedit49: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_firstClick(Sender: TObject);
    procedure btn_prevClick(Sender: TObject);
    procedure btn_nextClick(Sender: TObject);
    procedure btn_lastClick(Sender: TObject);
    procedure btn_addnewClick(Sender: TObject);
    procedure btn_editClick(Sender: TObject);
    procedure btn_saveClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure DBEdit6Enter(Sender: TObject);
    procedure DBEdit51Enter(Sender: TObject);
    procedure btn_filterfieldClick(Sender: TObject);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
    procedure btn_filterrecordClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure btn_deleteClick(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure dbedit49Click(Sender: TObject);
    procedure dbedit49Exit(Sender: TObject);

  private
    { Private declarations }
   procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效
    procedure SetCheckBoxValue();
    procedure SaveCheclBoxValue();
  public
    { Public declarations }
  end;

var
  Form_machinetest: TForm_machinetest;
  NotFirst:boolean;

implementation

uses wxp_dm, Unit_wxp, search, rp_test, cstm;

{$R *.dfm}

procedure TForm_machinetest.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     NotFirst:=false;
     action:=cafree;
end;

procedure TForm_machinetest.btn_firstClick(Sender: TObject);
begin
     ADOQuery1.First ;
end;

procedure TForm_machinetest.btn_prevClick(Sender: TObject);
begin
     if not ADOQuery1.Bof then
        ADOQuery1.Prior ; 
end;

procedure TForm_machinetest.btn_nextClick(Sender: TObject);
begin
     if not ADOQuery1.Eof then
        ADOQuery1.Next ;
end;

procedure TForm_machinetest.btn_lastClick(Sender: TObject);
begin
     ADOQuery1.Last ;
end;

procedure Tform_machinetest.DisableBtn ;
begin
    btn_first.Enabled :=false;
    btn_prev.Enabled :=false;
    btn_next.Enabled :=false;
    btn_last.Enabled :=false;

    btn_addnew.Enabled :=false;
    btn_edit.Enabled :=false;

end;


procedure Tform_machinetest.EnableBtn ;
begin
    btn_first.Enabled :=true;
    btn_prev.Enabled :=true;
    btn_next.Enabled :=true;
    btn_last.Enabled :=true;

    btn_addnew.Enabled :=true;
    btn_edit.Enabled :=true;

end;




procedure TForm_machinetest.btn_addnewClick(Sender: TObject);
begin
     DisableBtn;
     btn_delete.Enabled :=false;
     panel3.Enabled :=true;
     ADOQuery1.Insert   ;

     //dbcheckbox1.Checked :=false;
     SetCheckBoxValue;
     btn_save.Enabled :=true;
     btn_cancel.Enabled :=true;
     dbedit6.Text :=unit_wxp.myOffice;
     dbedit51.Text :=datetostr(date);
     dbedit4.SetFocus ;
     dbedit4.Text := datetostr(date);
     dbedit11.SetFocus ;
     dbedit11.Text := datetostr(date);
     dbedit12.SetFocus ;
     dbedit12.Text := datetostr(date);
     dbedit13.SetFocus ;
     dbedit13.Text := datetostr(date);
     btn_save.SetFocus ;


end;

procedure TForm_machinetest.btn_editClick(Sender: TObject);
begin
     DisableBtn;
     panel3.Enabled :=true;     
     ADOQuery1.Edit ;
     btn_save.Enabled :=true;
     btn_cancel.Enabled :=true;

     btn_delete.Enabled :=false;
end;

procedure TForm_machinetest.btn_saveClick(Sender: TObject);
begin
        if dbedit49.Text =''then
        begin
          showmessage('  客户名称不能为空，请填写！');
          exit;
        end;
        if dbedit9.Text =''then
        begin
          showmessage('  试机单号不能为空，请填写！');
          exit;
        end;
        if dbedit8.Text =''then
        begin
          showmessage('  机器编号不能为空，请填写！');
          exit;
        end;
        //SaveCheclBoxValue;
        ADOQuery1.post          ;
        ADOQuery1.Refresh ;
        panel3.Enabled :=false;
        btn_save.Enabled :=false;
        btn_cancel.Enabled :=false;
        //锁住所有文本框
        //LockEdit;
        //使按钮有效
        EnableBtn ;
        btn_delete.Enabled :=true;
        label42.Caption :=inttostr(self.ADOQuery1.Recordset.RecordCount);
end;

procedure TForm_machinetest.btn_cancelClick(Sender: TObject);
begin