contract.pas

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

unit contract;

interface

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

type
  TForm_contract = class(TForm)
    PageControl_contract: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    ScrollBox: TScrollBox;
    Label2: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: 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;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label59: TLabel;
    EditDBEdit8: TDBEdit;
    EditDBEdit11: TDBEdit;
    EditDBEdit12: TDBEdit;
    EditDBEdit13: TDBEdit;
    EditDBEdit15: TDBEdit;
    EditDBEdit16: TDBEdit;
    EditDBEdit18: TDBEdit;
    EditDBEdit20: TDBEdit;
    Edit_3: TDBEdit;
    Edit_4: TDBEdit;
    Edit_5: TDBEdit;
    Edit_6: TDBEdit;
    Edit_7: TDBEdit;
    Edit_8: TDBEdit;
    Edit_9: TDBEdit;
    Edit_10: TDBEdit;
    Edit_11: TDBEdit;
    Edit_12: TDBEdit;
    EditDBEdit26: TDBEdit;
    Edit_13: TDBEdit;
    Edit_14: TDBEdit;
    Edit_15: TDBEdit;
    Edit_16: TDBEdit;
    Edit_17: TDBEdit;
    Edit_18: TDBEdit;
    EditDBEdit31: TDBEdit;
    EditDBEdit32: TDBEdit;
    EditDBEdit33: TDBEdit;
    EditDBEdit34: TDBEdit;
    EditDBEdit36: TDBEdit;
    EditDBEdit37: TDBEdit;
    MemoDBMemo: TDBMemo;
    EditDBEdit41: TDBEdit;
    EditDBEdit51: TDBEdit;
    EditDBEdit52: TDBEdit;
    EditDBEdit54: TDBEdit;
    Label79: TLabel;
    Label81: TLabel;
    Label82: TLabel;
    Label83: TLabel;
    Label21: TLabel;
    Label84: TLabel;
    Label86: TLabel;
    Label87: TLabel;
    Label91: TLabel;
    Label70: TLabel;
    Label92: TLabel;
    Label93: TLabel;
    Label94: TLabel;
    Label10: TLabel;
    Label97: TLabel;
    Label98: TLabel;
    Label99: TLabel;
    Label100: TLabel;
    DBRadioGroup1: TDBRadioGroup;
    Label34: TLabel;
    dbrg_jthfs: TDBRadioGroup;
    DBEdit1: TDBEdit;
    dbrg_ysfs: TDBRadioGroup;
    Label35: TLabel;
    dbrg_dbcd: TDBRadioGroup;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label48: TLabel;
    Label105: TLabel;
    dbrg_dj: TDBRadioGroup;
    Label51: TLabel;
    dbrg_zfdjfs: TDBRadioGroup;
    Label54: TLabel;
    DBRadioGroup2: TDBRadioGroup;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label72: TLabel;
    DBMemo1: TDBMemo;
    GroupBox1: TGroupBox;
    DBComboBox1: TDBComboBox;
    Label64: TLabel;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    Panel5: TPanel;
    DBGrid1: TDBGrid;
    Query_contract_client: TQuery;
    Panel6: TPanel;
    Button1: TButton;
    Button2: TButton;
    TabSheet3: TTabSheet;
    Button3: TButton;
    DBComboBox7: TDBComboBox;
    TabSheet4: TTabSheet;
    Panel8_savelayer: TPanel;
    btn_save: TButton;
    btn_prev: TButton;
    btn_next: TButton;
    btn_last: TButton;
    btn_first: TButton;
    btn_edit: TButton;
    btn_cancel: TButton;
    btn_addnew: TButton;
    TabSheet5: TTabSheet;
    Panel7: TPanel;
    Button4: TButton;
    btn_filterfield: TButton;
    btn_filterrecord: TButton;
    Panel9: TPanel;
    Panel10: TPanel;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    DBGrid3: TDBGrid;
    DBGrid2: TDBGrid;
    Panel4: TPanel;
    btn_first1: TButton;
    btn_prev1: TButton;
    btn_next1: TButton;
    btn_last1: TButton;
    btn_addnew1: TButton;
    btn_edit1: TButton;
    btn_save1: TButton;
    btn_cancel1: TButton;
    Label9: TLabel;
    Label85: TLabel;
    Label77: TLabel;
    Label76: TLabel;
    Label75: TLabel;
    Label74: TLabel;
    Label71: TLabel;
    Label7: TLabel;
    Label68: TLabel;
    Label67: TLabel;
    Label63: TLabel;
    Label62: TLabel;
    Label61: TLabel;
    GroupBox4: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox2: TGroupBox;
    DBEdit9: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit10: TDBEdit;
    Shape2: TShape;
    Shape3: TShape;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    GroupBox7: TGroupBox;
    Label111: TLabel;
    Panel1: TPanel;
    btn_del1: TButton;
    btn_del: TButton;
    Panel2: TPanel;
    Label112: TLabel;
    Panel11: TPanel;
    Label69: TLabel;
    Panel12: TPanel;
    GroupBox8: TGroupBox;
    DBEdit22: TDBEdit;
    DataSource1: TDataSource;
    GroupBox9: TGroupBox;
    Button9: TButton;
    Button8: TButton;
    procedure btn_addnew1Click(Sender: TObject);
    procedure btn_save1Click(Sender: TObject);
    procedure btn_first1Click(Sender: TObject);
    procedure btn_prev1Click(Sender: TObject);
    procedure btn_last1Click(Sender: TObject);
    procedure btn_next1Click(Sender: TObject);
    procedure btn_edit1Click(Sender: TObject);
    procedure btn_cancel1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Edit_12Exit(Sender: TObject);
    procedure EditDBEdit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    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 DBComboBox1Enter(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox5Exit(Sender: TObject);
    procedure DBComboBox1Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBComboBox7Enter(Sender: TObject);
    procedure DBComboBox7Exit(Sender: TObject);
    procedure btn_filterfieldClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure btn_filterrecordClick(Sender: TObject);
    procedure DBGrid1Enter(Sender: TObject);
    procedure DBGrid1ColEnter(Sender: TObject);
    procedure PageControl_contractChange(Sender: TObject);
    procedure DBComboBox7Click(Sender: TObject);
    procedure btn_del1Click(Sender: TObject);
    procedure TabSheet1Enter(Sender: TObject);
    procedure DBGrid1ColExit(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
//   procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    
   


  private
    { Private declarations }
    procedure LockEdit;
    //定义函数，来改变各个输入框是否可以编辑，当用户再增加新记录
    //或者编辑记录以前，不可以修改
    procedure UnlockEdit;
    //定义函数，用来让输入文本框可以编辑

    //集成定义；
    procedure EnableScrollBox(aScrollBox : TScrollBox);
    procedure DisableScrollBox(aScrollBox : TScrollBox);

    procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效
  public
    { Public declarations }
    DBComboBox1_str:string;
    DBComboBox1_index:integer;

    function char_capital(intx:integer):string;
  end;

var
  Form_contract: TForm_contract;

implementation

uses temp2, search, wxp_dm, Unit_wxp,
  rp_contract, cstm, Unit_public_jin;


{$R *.dfm}
//自定义过程，用来确定每个Edit空间是否可以编辑


procedure TForm_contract.EnableScrollBox(aScrollBox : TScrollBox);
var Teller : Integer;
     classname1, classnameshort:string;
     ClassRef: TClass;
begin
   with aScrollBox do
  begin
    For Teller := 0 to aScrollBox.ControlCount -1 do //.ControlCount - 1 do
    begin
      ClassRef :=aScrollBox.Controls[ Teller ].ClassType; //控件类型
      classname1 :=aScrollBox.Controls[ Teller ].ClassName;
      if ClassRef <> nil then
      begin
       if classname1 = 'TDBEdit' then  aScrollBox.Controls[ Teller ].Enabled:= true;
       if classname1 = 'TDBRadioGroup' then aScrollBox.Controls[ Teller ].Enabled:= true;
       if classname1 = 'TDBMemo' then  aScrollBox.Controls[ Teller ].Enabled:= true;
       if classname1 = 'TDBComboBox' then  aScrollBox.Controls[ Teller ].Enabled:= true;
      end;
    end;
  end;
end;



procedure TForm_contract.DisableScrollBox(aScrollBox : TScrollBox);
 var Teller : Integer;
     classname1, classnameshort:string;
     ClassRef: TClass;
begin
   with aScrollBox do
  begin
    For Teller := 0 to aScrollBox.ControlCount -1 do //.ControlCount - 1 do
    begin
      ClassRef :=aScrollBox.Controls[ Teller ].ClassType; //控件类型
      classname1 :=aScrollBox.Controls[ Teller ].ClassName;
      if ClassRef <> nil then
      begin
       if classname1 = 'TDBEdit' then  aScrollBox.Controls[ Teller ].Enabled:= false;
       if classname1 = 'TDBRadioGroup' then aScrollBox.Controls[ Teller ].Enabled:= false;
       if classname1 = 'TDBMemo' then  aScrollBox.Controls[ Teller ].Enabled:= false;
       if classname1 = 'TDBComboBox' then  aScrollBox.Controls[ Teller ].Enabled:= false;

      end;
    end;
  end;
end;

//自定义过程，用来确定每个Edit空间是否可以编辑
procedure TForm_contract.LockEdit;
var
  OK: Boolean ;
begin
    ok := true;
end;

procedure TForm_contract.UnLockEdit;
var
  OK: Boolean ;
begin
    ok := false;
end;

procedure TForm_contract.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_first1.Enabled :=true;
    btn_prev1.Enabled :=true;
    btn_next1.Enabled :=true;
    btn_last1.Enabled :=true;

    btn_addnew1.Enabled :=true;
    btn_edit1.Enabled :=true;

end;

procedure TForm_contract.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_addnew.Enabled :=false;
    btn_edit.Enabled :=false;

    btn_first1.Enabled :=false;
    btn_prev1.Enabled :=false;
    btn_next1.Enabled :=false;
    btn_last1.Enabled :=false;


    btn_addnew1.Enabled :=false;
    btn_edit1.Enabled :=false;

end;

function TForm_contract.char_capital(intx:integer):string;
begin
  case intx of
   1: Result := '壹';
   2: Result := '贰';
   3: Result := '叁';
   4: Result := '肆';
   5: Result := '伍';
   6: Result := '陆';
   7: Result := '柒';
   8: Result := '捌';
   9: Result := '玖';
   0: Result := '零';
   else
    Result := '×';
  end;
end;

procedure TForm_contract.btn_addnew1Click(Sender: TObject);
begin
 EnableScrollBox(ScrollBox);

 DisableBtn;