contract_order.pas

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

    procedure FormCreate(Sender: TObject);
    procedure btn_addnew1Click(Sender: TObject);
    procedure btn_edit1Click(Sender: TObject);
    procedure btn_save1Click(Sender: TObject);
    procedure btn_cancel1Click(Sender: TObject);
    procedure btn_first1Click(Sender: TObject);
    procedure btn_prev1Click(Sender: TObject);
    procedure btn_next1Click(Sender: TObject);
    procedure btn_last1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBComboBox5Enter(Sender: TObject);
    procedure DBComboBox5Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBComboBox3Enter(Sender: TObject);
    procedure DBComboBox3Exit(Sender: TObject);
    procedure Query1aaaaAfterScroll(DataSet: TDataSet);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Query1AfterScroll(DataSet: TDataSet);
    procedure PageControl1Change(Sender: TObject);
    procedure DBRadioGroup1Exit(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBRadioGroup1Enter(Sender: TObject);
    procedure DBGrid4ColEnter(Sender: TObject);
    procedure DBGrid5ColEnter(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure DBGrid4ColExit(Sender: TObject);
    procedure DBGrid5ColExit(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }

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

    procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效

    procedure query2select;
  public
    { Public declarations }
    DBComboBox1_str:string;
    banshichu:string;
  end;

var
  Form_contract_order: TForm_contract_order;

implementation

uses Unit_wxp, search, rp_contract_order, Unit_public_jin;

{$R *.dfm}


procedure TForm_contract_order.query2select;
begin
  //if query1.recordcount<1 then exit;
  //标的物；
  with query2 do begin
    if active then close;
    unprepare;
    parambyname('hth').AsString:=query1.fieldbyname('合同号').asstring;
    prepare;
    open;
  end;

 //特别工程
  with query3 do begin
    if active then close;
    unprepare;
    parambyname('hth').AsString:=query1.fieldbyname('合同号').asstring;
    prepare;
    open;
  end;

   //其他特殊装置；
  with query4 do begin
    if active then close;
    unprepare;
    parambyname('hth').AsString:=query1.fieldbyname('合同号').asstring;
    prepare;
    open;
  end;


end;

procedure TForm_contract_order.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_order.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_contract_order.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_order.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_contract_order.FormCreate(Sender: TObject);
begin

   self.Query1.Open;
   //初始化；
   Form_contract_order.KeyPreview := true;//enter key  代替 tab key;
   DisableScrollBox(ScrollBox); //使面板不能用；
   unit_public_jin.Setcolor(ScrollBox); //unit_public_jin 是公用变量； 设置输入框颜色
   self.DBGrid3.ReadOnly:= true;
   self.DBGrid7.ReadOnly:= true;
   // c初始化 结束；

  ///////////
  // 合同号
  with Query_contract_client  do
  begin
    if active then close;
    unprepare;
    sql.Clear;
    sql.Add('select distinct 合同号  from pub_z_contract');
    prepare;
    open;
    DBComboBox3.Items.Clear;
    while not eof do
    begin
      DBComboBox3.Items.Add(fieldbyname('合同号').AsString);
      next;
    end;
  end;

  //办事处  两个
  with Query_contract_client do begin
    if active then close;
    unprepare;
    sql.Clear;
    sql.Add('select distinct 办事处名称 from pub_z_office');
    prepare;
    open;
    DBComboBox4.Items.Clear;
    DBComboBox8.Items.Clear;

    while not eof do begin
      DBComboBox4.Items.Add(fieldbyname('办事处名称').AsString);
      DBComboBox8.Items.Add(fieldbyname('办事处名称').AsString);

      next;
    end;
  end;



  if not query1.active then query1.open;



end;

procedure TForm_contract_order.btn_addnew1Click(Sender: TObject);
begin

        EnableScrollBox(ScrollBox);
        DisableBtn;
       // self.Query1.Append ;
        self.query1.Edit ;//可以修改，新增即修改了
        btn_save1.Enabled :=true;
        btn_cancel1.Enabled :=true;
        DBComboBox3.SetFocus;

end;

procedure TForm_contract_order.btn_edit1Click(Sender: TObject);
begin
       //UnLockEdit;
        EnableScrollBox(ScrollBox);
        self.DBComboBox3.Enabled:= false;
        self.DBComboBox4.SetFocus;
        

        DisableBtn;
        self.query1.Edit ;

        btn_save1.Enabled :=true;
        btn_cancel1.Enabled :=true;
        btn_save.Enabled :=true;
        btn_cancel.Enabled :=true;
end;

procedure TForm_contract_order.btn_save1Click(Sender: TObject);
begin
      //dm_wxp.Table1.Post  ;
        self.Query1.post ;

        Query1.Filtered:= false;

        //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_contract_order.btn_cancel1Click(Sender: TObject);
begin
      Query1.Filtered:= false;
      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_contract_order.btn_first1Click(Sender: TObject);
begin
self.Query1.First;
end;

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

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

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

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

procedure TForm_contract_order.DBComboBox5Enter(Sender: TObject);
begin

  DBComboBox1_str:=self.DBComboBox5.Text;
  
 // 订单号
  with Query_contract_client  do
  begin
    if active then close;
    unprepare;
    sql.Clear;
    sql.Add('select distinct 订单号  from pub_z_contract');
    prepare;
    open;
    DBComboBox5.Items.Clear;
    while not eof do
    begin
      DBComboBox5.Items.Add(fieldbyname('订单号').AsString);
      next;
    end;
  end;
end;

procedure TForm_contract_order.DBComboBox5Exit(Sender: TObject);
var