cstm.pas

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

unit cstm;

interface

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

type
  TFrm_cstm = class(TForm)
    qcst1: TQuery;
    dscst: TDataSource;
    qperson: TQuery;
    dsperson: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label10: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    EditDBEdit2: TDBEdit;
    EditDBEdit3: TDBEdit;
    EditDBEdit4: TDBEdit;
    EditDBEdit5: TDBEdit;
    EditDBEdit6: TDBEdit;
    EditDBEdit7: TDBEdit;
    EditDBEdit8: TDBEdit;
    EditDBEdit15: TDBEdit;
    EditDBEdit16: TDBEdit;
    DBMemo7: TDBMemo;
    DBComboBox1: TDBComboBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Panel2: TPanel;
    btn_first: TButton;
    btn_prev: TButton;
    btn_next: TButton;
    btn_last: TButton;
    btn_addnew: TButton;
    btn_edit: TButton;
    btn_save: TButton;
    btn_cancel: TButton;
    btn_delete: TButton;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    DBMemo5: TDBMemo;
    DBMemo6: TDBMemo;
    GroupBox3: TGroupBox;
    btn_addnew2: TButton;
    btn_delete2: TButton;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    btn_first1: TButton;
    btn_prev1: TButton;
    btn_next1: TButton;
    btn_last1: TButton;
    btn_edit1: TButton;
    btn_save1: TButton;
    btn_cancel1: TButton;
    btn_delete1: TButton;
    qcst1BDEDesigner: TAutoIncField;
    qcst1BDEDesigner2: TStringField;
    qcst1BDEDesigner3: TStringField;
    qcst1BDEDesigner4: TStringField;
    qcst1BDEDesigner5: TStringField;
    qcst1BDEDesigner6: TStringField;
    qcst1BDEDesigner7: TStringField;
    qcst1BDEDesigner8: TStringField;
    qcst1email: TStringField;
    qcst1BDEDesigner9: TStringField;
    qcst1BDEDesigner10: TStringField;
    qcst1BDEDesigner11: TStringField;
    qcst1BDEDesigner12: TStringField;
    qcst1BDEDesigner13: TStringField;
    qcst1BDEDesigner15: TStringField;
    qcst1BDEDesigner16: TStringField;
    qcst1BDEDesigner17: TStringField;
    qcst1BDEDesigner18: TStringField;
    qcst1BDEDesigner19: TStringField;
    qcst1BDEDesigner20: TDateTimeField;
    qcst1BDEDesigner21: TDateTimeField;
    qcst1BDEDesigner1: TMemoField;
    qcst1BDEDesigner22: TMemoField;
    qcst1BDEDesigner32: TMemoField;
    qcst1BDEDesigner42: TMemoField;
    qcst1BDEDesigner52: TMemoField;
    qcst1BDEDesigner62: TMemoField;
    qcst1BDEDesigner23: TMemoField;
    qcst1BDEDesigner24: TStringField;
    qcst1BDEDesigner25: TStringField;
    qcst1BDEDesigner26: TStringField;
    qcst1BDEDesigner27: TDateTimeField;
    qpersonBDEDesigner: TAutoIncField;
    qpersonBDEDesigner2: TStringField;
    qpersonBDEDesigner3: TStringField;
    qpersonBDEDesigner4: TStringField;
    qpersonBDEDesigner5: TStringField;
    qpersonBDEDesigner6: TStringField;
    qpersonBDEDesigner7: TStringField;
    qpersonEMAIL: TStringField;
    btn_edit2: TButton;
    TabSheet2: TTabSheet;
    Queryuse: TQuery;
    Panel4: TPanel;
    btn_brs: TButton;
    btn_qry: TButton;
    btn_prt: TButton;
    GroupBox4: TGroupBox;
    DBGrid2: TDBGrid;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    qcst1BDEDesigner28: TDateTimeField;
    qpersonBDEDesigner8: TDateTimeField;
    qpersonBDEDesigner10: TStringField;
    qpersonBDEDesigner11: TDateTimeField;
    qcst1BDEDesigner14: TStringField;
    UpdateSQL1: TUpdateSQL;
    UpdateSQL2: TUpdateSQL;
    GroupBox2: TGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label32: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit15: TDBEdit;
    Label33: TLabel;
    qcst1BDEDesigner29: TStringField;
    DBComboBox4: TDBComboBox;
    qcst: TADOQuery;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure btn_firstClick(Sender: TObject);
    procedure btn_lastClick(Sender: TObject);
    procedure btn_addnewClick(Sender: TObject);
    procedure btn_saveClick(Sender: TObject);
    procedure btn_prevClick(Sender: TObject);
    procedure btn_nextClick(Sender: TObject);
    procedure btn_editClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure btn_deleteClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure qcstAfterScroll(DataSet: TDataSet);
    procedure btn_addnew2Click(Sender: TObject);
    procedure btn_delete2Click(Sender: TObject);
    procedure btn_first1Click(Sender: TObject);
    procedure btn_prev1Click(Sender: TObject);
    procedure btn_next1Click(Sender: TObject);
    procedure btn_last1Click(Sender: TObject);
    procedure btn_addnew1Click(Sender: TObject);
    procedure btn_edit1Click(Sender: TObject);
    procedure btn_cancel1Click(Sender: TObject);
    procedure btn_save1Click(Sender: TObject);
    procedure btn_delete1Click(Sender: TObject);
    procedure btn_edit2Click(Sender: TObject);
    procedure btn_qryClick(Sender: TObject);
    procedure btn_brsClick(Sender: TObject);
    procedure btn_prtClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormDestroy(Sender: TObject);
    procedure qcstAfterOpen(DataSet: TDataSet);
    procedure DBEdit2Exit(Sender: TObject);

  private
    { Private declarations }
    procedure LockEdit;
    //定义函数，来改变各个输入框是否可以编辑，当用户再增加新记录
    //或者编辑记录以前，不可以修改
    procedure UnlockEdit;
    //定义函数，用来让输入文本框可以编辑
    procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效

  public
    { Public declarations }
  end;

var
  Frm_cstm: TFrm_cstm;

implementation

uses data, search, rp_cstm, contract, Unit_wxp,
  Unit_public_jin, wxp_dm;
var isedit:boolean; kehuhao:string;
{$R *.dfm}

//***************释放空间********************
procedure TFrm_cstm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
if  Unit_public_jin.form_comtract_cstm_flag = true then
     begin
      Form_contract.DBComboBox1.Text:= '' ;
      Form_contract.DBComboBox1.SelText:=self.DBEdit2.text;

      Unit_public_jin.form_comtract_cstm_flag := false;

      //DBComboBox1 重新检索，赋值；
      Form_contract.TabSheet1.SetFocus     ;
      Form_contract.DBComboBox1.SetFocus;
      Unit_public_jin.form_comtract_kehu:= EditDBEdit2.text;
      Form_contract.DBComboBox1.SelText := Unit_public_jin.form_comtract_kehu ;
     end  ;

  Action:=cafree;

end;

//***************以下是自定义的按纽和编辑的可否应用部分*********************
//自定义过程，用来确定每个Edit空间是否可以编辑
procedure TFrm_cstm.LockEdit;
begin
       Panel1.Enabled :=false;
       GroupBox3.Enabled :=false;
       GroupBox1.Enabled :=false;
end;

procedure TFrm_cstm.UnlockEdit ;
begin
     Panel1.Enabled :=true;
     GroupBox3.Enabled :=true;
     GroupBox1.Enabled :=true;

end;


procedure TFrm_cstm.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;
    btn_delete.enabled:=false;
    btn_delete1.enabled:=false;
    btn_first1.Enabled :=false;
    btn_prev1.Enabled :=false;
    btn_next1.Enabled :=false;
    btn_last1.Enabled :=false;


    btn_edit1.Enabled :=false;

    btn_delete2.Enabled:=false;
    btn_addnew2.Enabled:=false;
    btn_edit2.Enabled :=false;

end;

procedure TFrm_cstm.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;

    btn_delete.enabled:=true;
    btn_delete1.enabled:=true;
    btn_first1.Enabled :=true;
    btn_prev1.Enabled :=true;
    btn_next1.Enabled :=true;
    btn_last1.Enabled :=true;


    btn_edit1.Enabled :=true;

    btn_delete2.Enabled:=false;
    btn_addnew2.Enabled:=false;
    btn_edit2.Enabled :=false;
end;

//***************以上是自定义的按纽和编辑的可否应用部分*********************

//***************以下是按纽操作。*********************

procedure TFrm_cstm.btn_firstClick(Sender: TObject);
begin
        if not qcst.Bof then qcst.First;
end;

procedure TFrm_cstm.btn_lastClick(Sender: TObject);
begin
        if not qcst.eof then qcst.Last;
end;
procedure TFrm_cstm.btn_prevClick(Sender: TObject);
begin
        if not qcst.Bof then qcst.Prior;
end;

procedure TFrm_cstm.btn_nextClick(Sender: TObject);
begin
        if not qcst.Eof then qcst.Next;
end;
procedure TFrm_cstm.btn_addnewClick(Sender: TObject);
var
  Present: TDateTime;
begin
        UnlockEdit;