maintain.pas

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

unit maintain;

interface

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

type
  Tform_maintain = class(TForm)
    DataSource1: TDataSource;
    ScrollBox: TScrollBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    GroupBox4: TGroupBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    Panel4: TPanel;
    GroupBox6: TGroupBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    DBCheckBox100: TDBCheckBox;
    GroupBox18: TGroupBox;
    DBCheckBox32: TDBCheckBox;
    DBCheckBox48: TDBCheckBox;
    DBCheckBox45: TDBCheckBox;
    DBCheckBox50: TDBCheckBox;
    DBCheckBox34: TDBCheckBox;
    DBCheckBox37: TDBCheckBox;
    DBCheckBox42: TDBCheckBox;
    DBCheckBox39: TDBCheckBox;
    DBCheckBox36: TDBCheckBox;
    DBCheckBox41: TDBCheckBox;
    DBCheckBox44: TDBCheckBox;
    DBCheckBox47: TDBCheckBox;
    DBCheckBox33: TDBCheckBox;
    DBCheckBox49: TDBCheckBox;
    DBCheckBox46: TDBCheckBox;
    DBCheckBox35: TDBCheckBox;
    DBCheckBox38: TDBCheckBox;
    DBCheckBox43: TDBCheckBox;
    DBCheckBox40: TDBCheckBox;
    Panel5: TPanel;
    GroupBox7: TGroupBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox15: TDBCheckBox;
    GroupBox19: TGroupBox;
    DBCheckBox51: TDBCheckBox;
    DBCheckBox53: TDBCheckBox;
    DBCheckBox57: TDBCheckBox;
    DBCheckBox55: TDBCheckBox;
    DBCheckBox61: TDBCheckBox;
    DBCheckBox59: TDBCheckBox;
    DBCheckBox65: TDBCheckBox;
    DBCheckBox63: TDBCheckBox;
    DBCheckBox54: TDBCheckBox;
    DBCheckBox52: TDBCheckBox;
    DBCheckBox58: TDBCheckBox;
    DBCheckBox56: TDBCheckBox;
    DBCheckBox62: TDBCheckBox;
    DBCheckBox60: TDBCheckBox;
    DBCheckBox64: TDBCheckBox;
    Panel6: TPanel;
    GroupBox8: TGroupBox;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox17: TDBCheckBox;
    DBCheckBox18: TDBCheckBox;
    GroupBox20: TGroupBox;
    DBCheckBox69: TDBCheckBox;
    DBCheckBox67: TDBCheckBox;
    DBCheckBox71: TDBCheckBox;
    DBCheckBox73: TDBCheckBox;
    DBCheckBox75: TDBCheckBox;
    DBCheckBox77: TDBCheckBox;
    DBCheckBox79: TDBCheckBox;
    DBCheckBox81: TDBCheckBox;
    DBCheckBox66: TDBCheckBox;
    DBCheckBox68: TDBCheckBox;
    DBCheckBox70: TDBCheckBox;
    DBCheckBox72: TDBCheckBox;
    DBCheckBox74: TDBCheckBox;
    DBCheckBox76: TDBCheckBox;
    DBCheckBox80: TDBCheckBox;
    Panel7: TPanel;
    GroupBox5: TGroupBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    DBCheckBox23: TDBCheckBox;
    DBCheckBox78: TDBCheckBox;
    DBCheckBox82: TDBCheckBox;
    DBCheckBox83: TDBCheckBox;
    DBCheckBox84: TDBCheckBox;
    DBCheckBox85: TDBCheckBox;
    DBCheckBox86: TDBCheckBox;
    DBCheckBox87: TDBCheckBox;
    DBCheckBox88: TDBCheckBox;
    DBCheckBox89: TDBCheckBox;
    DBCheckBox90: TDBCheckBox;
    GroupBox9: TGroupBox;
    DBCheckBox91: TDBCheckBox;
    DBCheckBox92: TDBCheckBox;
    DBCheckBox93: TDBCheckBox;
    DBCheckBox94: TDBCheckBox;
    DBCheckBox95: TDBCheckBox;
    DBCheckBox96: TDBCheckBox;
    DBCheckBox97: TDBCheckBox;
    GroupBox10: TGroupBox;
    DBCheckBox98: TDBCheckBox;
    DBCheckBox99: TDBCheckBox;
    GroupBox11: TGroupBox;
    DBCheckBox25: TDBCheckBox;
    DBCheckBox26: TDBCheckBox;
    DBCheckBox27: TDBCheckBox;
    DBCheckBox28: TDBCheckBox;
    Panel8: TPanel;
    GroupBox12: TGroupBox;
    DBComboBox1: TDBComboBox;
    GroupBox13: TGroupBox;
    Label80: TLabel;
    Label81: TLabel;
    Label83: TLabel;
    GroupBox14: TGroupBox;
    Label84: TLabel;
    Label85: TLabel;
    Label86: TLabel;
    DBEdit84: TDBEdit;
    DBEdit85: TDBEdit;
    DBEdit86: TDBEdit;
    GroupBox15: TGroupBox;
    DBMemo1: TDBMemo;
    Panel9: TPanel;
    GroupBox16: TGroupBox;
    Label87: TLabel;
    Label88: TLabel;
    GroupBox17: TGroupBox;
    Label90: TLabel;
    Label91: TLabel;
    DBEdit88: TDBEdit;
    DBEdit89: TDBEdit;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    ADOQuery1: TADOQuery;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label13: TLabel;
    DBEdit13: 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;
    Panel11: TPanel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    Label17: TLabel;
    Label18: TLabel;
    dbedit2: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_firstClick(Sender: TObject);
    procedure btn_lastClick(Sender: TObject);
    procedure btn_prevClick(Sender: TObject);
    procedure btn_nextClick(Sender: TObject);
    procedure btn_addnewClick(Sender: TObject);
    procedure btn_editClick(Sender: TObject);
    procedure btn_saveClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure btn_filterfieldClick(Sender: TObject);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
    procedure btn_deleteClick(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure PageControl1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure dbedit2Click(Sender: TObject);
    procedure dbedit2Exit(Sender: TObject);
  private
    { Private declarations }
    procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效
    procedure SetCheckBoxValue();     
  public
    { Public declarations }
  end;

var
  form_maintain: Tform_maintain;
  NotFirst:boolean;

implementation

uses wxp_dm, search, Unit_wxp, rp_maintain1, cstm;

{$R *.dfm}

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

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

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

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

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




procedure Tform_maintain.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_maintain.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_maintain.btn_addnewClick(Sender: TObject);
begin
     DisableBtn;
     panel2.Enabled :=true;
     btn_delete.Enabled :=false;
     ADOQuery1.Insert  ;
     SetCheckBoxValue;
     //self.DBEdit1.Text :=unit_wxp.SellStyle ;
     btn_save.Enabled :=true;
     btn_cancel.Enabled :=true;
     dbedit8.Text :=dateToStr(today);
     dbedit14.Text :=unit_wxp.myOffice ;
     dbedit9.SetFocus ;
     dbedit9.Text := dateToStr(today);
     dbedit10.SetFocus ;
     dbedit10.Text := dateToStr(today);
     dbedit11.SetFocus ;
     dbedit11.Text := dateToStr(today);
     dbedit12.SetFocus ;
     dbedit12.Text := dateToStr(today);
     dbedit15.SetFocus ;
     dbedit15.Text := dateToStr(today);
     dbedit2.SetFocus ;
     
end;

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

     btn_delete.Enabled :=false;
     
end;

procedure Tform_maintain.btn_saveClick(Sender: TObject);
begin
        if dbedit2.Text =''then