partout.pas

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

unit partout;

interface

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

type
  TForm_partout = class(TForm)
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ScrollBox: TScrollBox;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Query1: TADOQuery;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    StringGrid1: TStringGrid;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label25: TLabel;
    EditDBEdit2: TDBEdit;
    EditDBEdit5: TDBEdit;
    DBEdit3: TDBEdit;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label6: TLabel;
    DBComboBox1: TDBComboBox;
    EditDBEdit10: TDBEdit;
    DBEdit4: TDBEdit;
    GroupBox4: TGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    EditDBEdit11: TDBEdit;
    EditDBEdit12: TDBEdit;
    EditDBEdit13: TDBEdit;
    GroupBox5: TGroupBox;
    Label4: TLabel;
    Label7: TLabel;
    Label14: TLabel;
    EditDBEdit4: TDBEdit;
    EditDBEdit7: TDBEdit;
    GroupBox1: TGroupBox;
    Label17: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit5: TDBEdit;
    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;
    Panel2: TPanel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    btn_filterfield: TButton;
    Button2: TButton;
    editdbedit14: TDBComboBox;
    Label15: TLabel;
    DBMemo1: TDBMemo;
    Label26: TLabel;
    DBEdit7: TDBEdit;
    Label27: TLabel;
    Label28: TLabel;
    DBEdit8: TDBEdit;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    Label29: TLabel;
    DBEdit6: TDBEdit;
    DBEdit9: TDBEdit;
    procedure FormCreate(Sender: TObject);
    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 FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_filterfieldClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2Enter(Sender: TObject);
    procedure Query1AfterOpen(DataSet: TDataSet);
    procedure EditDBEdit12Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Query1AfterPost(DataSet: TDataSet);
    procedure btn_deleteClick(Sender: TObject);
    procedure EditDBEdit11Exit(Sender: TObject);
    procedure DBComboBox1Exit(Sender: TObject);
    procedure DBComboBox3Exit(Sender: TObject);
    procedure DBEdit7Exit(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Query1BeforeDelete(DataSet: TDataSet);
    procedure DBComboBox1Click(Sender: TObject);
    procedure DBComboBox3Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { private declarations }
    procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效
    procedure  AddPartNum();
  public
    { public declarations }
  end;

var
  Form_partout: TForm_partout;
  j:integer;
  myIndex:array[1..6] of integer;
  myValue:array[1..6] of single;
  NotFirst:boolean;
  NumDelete:string     ;
  StrDelete:string;


implementation

uses wxp_dm, search, Unit_wxp;

{$R *.DFM}

procedure TForm_partout.FormCreate(Sender: TObject);
begin
  query1.Open;
  NotFirst:=false;
  if self.Query1.Recordset.RecordCount =0 then
       begin
          btn_delete.Enabled :=false;
          btn_edit.Enabled :=false;
       end;
  AddPartNum;
end;
procedure TForm_partout.btn_firstClick(Sender: TObject);
begin
     //if not query1.Bof then
        query1.First   ;
end;

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

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

procedure TForm_partout.btn_lastClick(Sender: TObject);
begin
     query1.Last ;
end;

procedure TForm_partout.btn_addnewClick(Sender: TObject);
begin
     DisableBtn;
     btn_delete.Enabled :=false;
     groupbox1.Enabled :=true;
     groupbox2.Enabled :=true;
     groupbox3.Enabled :=true;
     groupbox4.Enabled :=true;
     groupbox5.Enabled :=true;          
     query1.Insert    ;
     btn_save.Enabled :=true;
     btn_cancel.Enabled :=true;
     dbedit1.Text :=datetostr(today);
     dbedit5.Text :=unit_wxp.myOffice ;
     editdbedit4.SetFocus ;
     editdbedit4.Text :=dateToStr(date);
     editdbedit7.SetFocus ;
     editdbedit7.Text :=dateToStr(date);
     

     editdbedit2.SetFocus ;


end;

procedure TForm_partout.btn_editClick(Sender: TObject);
begin
     DisableBtn;
      btn_delete.Enabled :=false;
     groupbox1.Enabled :=true;
     groupbox2.Enabled :=true;
     groupbox3.Enabled :=true;
     groupbox4.Enabled :=true;
     groupbox5.Enabled :=true;          
     query1.Edit ;
     btn_save.Enabled :=true;
     btn_cancel.Enabled :=true;
    
end;

procedure TForm_partout.btn_saveClick(Sender: TObject);
begin
     if (DBComboBox1.Text ='') and (DBComboBox3.Text ='') then
        begin
          showmessage('  零件编号和名称不能为空，请填写！');
          exit;
        end;
     if EditDBEdit11.Text ='' then
        begin
          showmessage('  零件数量不能为空，请填写！');
          exit;
        end;
        query1.Post ;

     groupbox1.Enabled :=false;
     groupbox2.Enabled :=false;
     groupbox3.Enabled :=false;
     groupbox4.Enabled :=false;
     groupbox5.Enabled :=false;        
        btn_save.Enabled :=false;
        btn_cancel.Enabled :=false;
        //锁住所有文本框
        //LockEdit;
        //使按钮有效
        EnableBtn ;
        btn_delete.Enabled :=true;
        label23.Caption :=inttostr(self.Query1.Recordset.RecordCount);
end;

procedure TForm_partout.btn_cancelClick(Sender: TObject);
begin
        query1.Cancel ;

     groupbox1.Enabled :=false;
     groupbox2.Enabled :=false;
     groupbox3.Enabled :=false;
     groupbox4.Enabled :=false;
     groupbox5.Enabled :=false;        
        EnableBtn;
        //LockEdit;
        btn_cancel.Enabled :=false;
        btn_save.Enabled :=false;
        btn_edit.Enabled :=false;
        if  Query1.Recordset.RecordCount <>0 then
        begin
          btn_delete.Enabled :=true;
          btn_edit.Enabled :=true;
        end;
end;

procedure Tform_partout.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_partout.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_partout.FormClose(Sender: TObject;
  var Action: TCloseAction);