transit_proxy.pas

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

unit transit_proxy;

interface

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

type
  TForm_transit_proxy = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    GroupBox10: TGroupBox;
    Panel3: TPanel;
    Label95: TLabel;
    DataSource1: TDataSource;
    Query1: TADOQuery;
    Label1: TLabel;
    Shape1: TShape;
    DBEdit1: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    ScrollBox: TScrollBox;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    Button8: TButton;
    Button10: TButton;
    Button9: TButton;
    Panel5: 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;
    Panel1: 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;
    Button1: TButton;
    Panel6: TPanel;
    Label13: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure btn_first1Click(Sender: TObject);
    procedure btn_prev1Click(Sender: TObject);
    procedure btn_next1Click(Sender: TObject);
    procedure btn_last1Click(Sender: TObject);
    procedure btn_cancel1Click(Sender: TObject);
    procedure btn_save1Click(Sender: TObject);
    procedure btn_edit1Click(Sender: TObject);
    procedure btn_addnew1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
      //集成定义；
    procedure EnableScrollBox(aScrollBox : TScrollBox);
    procedure DisableScrollBox(aScrollBox : TScrollBox);

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

var
  Form_transit_proxy: TForm_transit_proxy;

implementation

uses search, Unit_wxp, rp_transit_proxy, Unit_public_jin;

{$R *.dfm}




procedure TForm_transit_proxy.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_transit_proxy.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;
procedure TForm_transit_proxy.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_transit_proxy.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;
 procedure TForm_transit_proxy.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 Action:=cafree;
end;

procedure TForm_transit_proxy.FormCreate(Sender: TObject);
begin
    self.Query1.Open;
    Form_transit_proxy.KeyPreview := true;
    unit_public_jin.Setcolor(ScrollBox);
    DisableScrollBox(ScrollBox); //使scrollbox上的控件只读；
    self.DBEdit1.Enabled:=false;

end;

procedure TForm_transit_proxy.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then //如果是一个Enter键盘
  begin
    if not (ActiveControl is TDBGrid) then  //如果当前的控件不是TDBGrid
    begin
       Key := #0;
       Perform(WM_NEXTDLGCTL, 0, 0); { move to next control }
    end
    else if (ActiveControl is TDBGrid) then //在TDBGrid中
    begin
       with TDBGrid(ActiveControl) do
       begin
         if selectedindex <(fieldcount -1) then //如果不是最后一个字段
            selectedindex := selectedindex +1
         else
            selectedindex := 0;
       end;
   end;
end;
end;

procedure TForm_transit_proxy.btn_first1Click(Sender: TObject);
begin
self.Query1.First;
end;

procedure TForm_transit_proxy.btn_prev1Click(Sender: TObject);
begin
if not self.Query1.Bof then
self.Query1.Prior;
end;

procedure TForm_transit_proxy.btn_next1Click(Sender: TObject);
begin
if not self.Query1.Eof then
self.Query1.Next;
end;

procedure TForm_transit_proxy.btn_last1Click(Sender: TObject);
begin
self.Query1.Last;
end;

procedure TForm_transit_proxy.btn_cancel1Click(Sender: TObject);
begin
self.Query1.Cancel ;
      EnableBtn;
      //LockEdit;
      DisableScrollBox(ScrollBox);
      btn_cancel.Enabled :=false;
      btn_save.Enabled :=false;

      btn_cancel1.Enabled :=false;
      btn_save1.Enabled :=false;
end;

procedure TForm_transit_proxy.btn_save1Click(Sender: TObject);
begin

          self.DBEdit1.Enabled:=false;
        self.Query1.post ;
        //self.Query2.Query_contract_machine.ApplyUpdates ;
        btn_save1.Enabled :=false;
        btn_cancel1.Enabled :=false;
        btn_save.Enabled :=false;
        btn_cancel.Enabled :=false;
        //锁住所有文本框
        //LockEdit;
        DisableScrollBox(ScrollBox);
        //使按钮有效
        EnableBtn ;

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

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

procedure TForm_transit_proxy.btn_edit1Click(Sender: TObject);
begin
 //UnLockEdit;
          self.DBEdit1.Enabled:=true;
        EnableScrollBox(ScrollBox);
        DisableBtn;
        self.query1.Edit ;
        DBEdit1.SetFocus;
        
        btn_save1.Enabled :=true;
        btn_cancel1.Enabled :=true;
        btn_save.Enabled :=true;
        btn_cancel.Enabled :=true;
end;

procedure TForm_transit_proxy.btn_addnew1Click(Sender: TObject);
begin
//UnlockEdit;
        EnableScrollBox(ScrollBox);
        DisableBtn;
        self.Query1.Append ;
        self.DBEdit1.Enabled:=true;


        btn_save1.Enabled :=true;
        btn_cancel1.Enabled :=true;
        DBEdit1.SetFocus;

end;

procedure TForm_transit_proxy.Button1Click(Sender: TObject);
begin
self.Close;
end;

procedure TForm_transit_proxy.Button8Click(Sender: TObject);
begin
        Application.CreateForm(TForm_search, Form_search);
        form_search.TransADO :=self.Query1 ;
        unit_wxp.WhichForm := 900 ;
        form_search.Showmodal ;
end;

procedure TForm_transit_proxy.Button9Click(Sender: TObject);
begin

     self.Query1.Active :=false;
     self.Query1.SQL.Clear ;
     self.Query1.SQL.Add('select * from pub_z_transit_proxy ');
     self.Query1.Active :=true;
     unit_wxp.FinalSql:= 'select * from pub_z_transit_proxy ';
end;

procedure TForm_transit_proxy.Button10Click(Sender: TObject);
begin
  Application.CreateForm(TQRpt_transit_proxy, QRpt_transit_proxy);
     QRpt_transit_proxy.Query1.Active :=false;
     QRpt_transit_proxy.Query1.SQL.Clear ;
     QRpt_transit_proxy.Query1.SQL.Add(unit_wxp.FinalSql );
     QRpt_transit_proxy.Query1.Active :=true;
     QRpt_transit_proxy.Preview ;
     QRpt_transit_proxy.Free ;
end;

procedure TForm_transit_proxy.DBEdit1Exit(Sender: TObject);
begin
self.DBEdit2.SetFocus;
end;

procedure TForm_transit_proxy.Button2Click(Sender: TObject);
begin
if self.Query1.RecordCount <>0 then
  begin
    if application.MessageBox(pchar('确信要删除这条记录嘛？'),
        pchar('注意'),MB_OKCANCEL)=IDOK then
        begin
      self.query1.Delete;
      //Form_transit_proxy.btn_save1Click(btn_save1);
      end;
      //self.query4.post;
   end
end;

procedure TForm_transit_proxy.FormDestroy(Sender: TObject);
begin
    Form_transit_proxy:=nil;
end;

end.