maintain.pas

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

        begin
          showmessage('  客户名称不能为空，请填写！');
          exit;
        end;
        if dbedit6.Text =''then
        begin
          showmessage('  机器编号不能为空，请填写！');
          exit;
        end;
        ADOQuery1.post   ;
        ADOQuery1.Refresh ;
        panel2.Enabled :=false;
        btn_save.Enabled :=false;
        btn_cancel.Enabled :=false;
        //锁住所有文本框
        //LockEdit;
        //使按钮有效
        EnableBtn ;
        btn_delete.Enabled :=true;
        label15.Caption :=inttostr(self.ADOQuery1.Recordset.RecordCount);
       
end;

procedure Tform_maintain.btn_cancelClick(Sender: TObject);
begin
        
        ADOQuery1.Cancel ;
        panel2.Enabled :=false;
        EnableBtn;
        //LockEdit;
        btn_cancel.Enabled :=false;
        btn_save.Enabled :=false;
        btn_edit.Enabled :=false;
        if  ADOQuery1.Recordset.RecordCount <>0 then
          begin
          btn_delete.Enabled :=true;
          btn_edit.Enabled :=true;
          end;
       
end;

procedure Tform_maintain.btn_filterfieldClick(Sender: TObject);
begin
        Application.CreateForm(TForm_search, Form_search);
        //
        form_search.TransADO  := ADOQuery1 ;
        unit_wxp.WhichForm:=7;
        form_search.Showmodal ;
end;

procedure Tform_maintain.ADOQuery1AfterOpen(DataSet: TDataSet);
var
i:integer;
tempName:string;
begin
     Label15.Caption :=inttostr(ADOQuery1.Recordset.RecordCount) ;
     //统计出每个字段的数值
     if NotFirst=false then
     begin

        for i:=0 to self.ADOQuery1.FieldList.Count-1  do
        begin
                //list_fields.Items.Add  (TransADO.Fields[i].FieldName  );
                //将每个字段的字段类型放在数组中
                unit_wxp.FieldType[i]:= self.ADOQuery1.Fields[i].DataType;

        end;
        NotFirst:=true;
     end;

end;

procedure Tform_maintain.btn_deleteClick(Sender: TObject);
begin
     if application.MessageBox(pchar('确信要删除这条记录嘛？'),
        pchar('注意'),MB_OKCANCEL)=IDOK then
        self.ADOQuery1.Delete   ;
     if self.ADOQuery1.Recordset.RecordCount =0 then
        begin
          btn_delete.Enabled :=false;
          btn_edit.Enabled :=false;
        end;
     label15.Caption :=inttostr(self.ADOQuery1.Recordset.RecordCount);
end;

procedure Tform_maintain.Button4Click(Sender: TObject);
begin
     Application.CreateForm(TQReportMaintain, QReportMaintain);
     QReportMaintain.query1.Active :=false;
     QReportMaintain.query1.SQL.Clear ;
     QReportMaintain.query1.SQL.Add(unit_wxp.FinalSql );
     QReportMaintain.query1.Active :=true;
     QReportMaintain.Preview ;
     QReportMaintain.Free ;
end;

procedure Tform_maintain.Button3Click(Sender: TObject);
begin
     unit_wxp.FinalSql :='select * from pub_z_maintain';
     self.ADOQuery1.Active :=false;
     self.ADOQuery1.SQL.Clear ;
     self.ADOQuery1.SQL.Add('select * from pub_z_maintain');
     self.ADOQuery1.Active :=true;
end;

procedure Tform_maintain.FormShow(Sender: TObject);
begin
     self.ADOQuery1.Active :=true;
     NotFirst:=false;
     if self.ADOQuery1.Recordset.RecordCount =0 then
       begin
          btn_delete.Enabled :=false;
          btn_edit.Enabled :=false;
       end;
end;

procedure Tform_maintain.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
    begin
      Key := #0;
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
end;

procedure   Tform_maintain.SetCheckBoxValue ();

var
i:integer;
myClass:Tclass;
myClassName:string;
begin
     //self.ControlCount
     for i:=0 to  groupbox4.ControlCount-1 do
     begin
     myClass:=groupbox4.Controls[i].ClassType;
     myClassName:= groupbox4.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox4.Controls[i]).Checked :=false;
     end;
     end;

     for i:=0 to  groupbox5.ControlCount-1 do
     begin
     myClass:=groupbox5.Controls[i].ClassType;
     myClassName:= groupbox5.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox5.Controls[i]).Checked :=false;
     end;
     end;

     for i:=0 to  groupbox6.ControlCount-1 do
     begin
     myClass:=groupbox6.Controls[i].ClassType;
     myClassName:= groupbox6.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox6.Controls[i]).Checked :=false;
     end;
     end;


     for i:=0 to  groupbox7.ControlCount-1 do
     begin
     myClass:=groupbox7.Controls[i].ClassType;
     myClassName:= groupbox7.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox7.Controls[i]).Checked :=false;
     end;
     end;


     for i:=0 to  groupbox8.ControlCount-1 do
     begin
     myClass:=groupbox8.Controls[i].ClassType;
     myClassName:= groupbox8.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox8.Controls[i]).Checked :=false;
     end;
     end;


     for i:=0 to  groupbox9.ControlCount-1 do
     begin
     myClass:=groupbox9.Controls[i].ClassType;
     myClassName:= groupbox9.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox9.Controls[i]).Checked :=false;
     end;
     end;

     for i:=0 to  groupbox11.ControlCount-1 do
     begin
     myClass:=groupbox11.Controls[i].ClassType;
     myClassName:= groupbox5.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox11.Controls[i]).Checked :=false;
     end;
     end;



     for i:=0 to  groupbox10.ControlCount-1 do
     begin
     myClass:=groupbox10.Controls[i].ClassType;
     myClassName:= groupbox10.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox10.Controls[i]).Checked :=false;
     end;
     end;

     for i:=0 to  groupbox18.ControlCount-1 do
     begin
     myClass:=groupbox18.Controls[i].ClassType;
     myClassName:= groupbox18.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox18.Controls[i]).Checked :=false;
     end;
     end;

     for i:=0 to  groupbox19.ControlCount-1 do
     begin
     myClass:=groupbox19.Controls[i].ClassType;
     myClassName:= groupbox19.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox19.Controls[i]).Checked :=false;
     end;
     end;

     for i:=0 to  groupbox20.ControlCount-1 do
     begin
     myClass:=groupbox20.Controls[i].ClassType;
     myClassName:= groupbox20.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin
          TDBCheckBox(groupbox20.Controls[i]).Checked :=false;
     end;
     end;



end;




procedure Tform_maintain.PageControl1Change(Sender: TObject);
begin
     if pagecontrol1.TabIndex =0 then
     begin
       panel1.Enabled :=true;
     end
     else
     begin
       panel1.Enabled :=false;
     end;

end;

procedure Tform_maintain.FormActivate(Sender: TObject);
begin
     dm_wxp.ADOQuery1.Active :=false;
     dm_wxp.ADOQuery1.SQL.Clear ;
     //showmessage('select 名称,机型,型号 from pub_z_part where 编号='''
     //+self.EditDBEdit2.Text +'''');
     dm_wxp.ADOQuery1.SQL.Add('select 客户名称 from pub_z_client');
     dm_wxp.ADOQuery1.Active :=true;

     while not  dm_wxp.ADOQuery1.Eof    do
     begin
          self.dbedit2.Items.Add  (dm_wxp.ADOQuery1.Fields.Fields[0].AsString) ;
          
          dm_wxp.ADOQuery1.Next ;
     end;
     dm_wxp.ADOQuery1.Active :=false;
end;

procedure Tform_maintain.FormDestroy(Sender: TObject);
begin
  form_maintain:=nil;
end;

procedure Tform_maintain.dbedit2Click(Sender: TObject);
begin
     dm_wxp.ADOQuery1.Active :=false;
     dm_wxp.ADOQuery1.SQL.Clear ;
     //showmessage('select 名称,机型,型号 from pub_z_part where 编号='''
     //+self.EditDBEdit2.Text +'''');
     dm_wxp.ADOQuery1.SQL.Add('select 客户号,客户地址,电话号码 from pub_z_client where 客户名称='''
     +trim(self.DBedit2.Text) +'''');

     dm_wxp.ADOQuery1.Active :=true;
     //showmessage(inttostr(dm_wxp.ADOQuery1.RecordCount ));

     //dm_wxp.ADOQuery1.First ;

     if  dm_wxp.ADOQuery1.RecordCount<>0 then
     begin
          DBEdit1 .Enabled :=true;
          DBEdit3.Enabled :=true;
          DBEdit4.Enabled :=true;
          self.dbedit1.SetFocus ;
          self.dbedit1.Text :=dm_wxp.ADOQuery1.Fields.Fields[0].AsString ;
          self.dbedit3.SetFocus ;
          self.dbedit3.Text :=dm_wxp.ADOQuery1.Fields.Fields[1].AsString ;
          self.dbedit4.SetFocus ;
          self.dbedit4.Text :=dm_wxp.ADOQuery1.Fields.Fields[2].AsString ;
          DBEdit1.Enabled :=false;
          DBEdit3.Enabled :=false;
          DBEdit4.Enabled :=false;
     end
     else
     begin
         showmessage('该客户信息不存在,请先输入客户信息');
         dbedit2.Text :='';
         {application.createform(Tfrm_cstm,frm_cstm);
         frm_cstm.Show ;   }
     end;
end;

procedure Tform_maintain.dbedit2Exit(Sender: TObject);
begin
     if dbedit2.Text <>'' then
     begin
     dm_wxp.ADOQuery1.Active :=false;
     dm_wxp.ADOQuery1.SQL.Clear ;
     //showmessage('select 名称,机型,型号 from pub_z_part where 编号='''
     //+self.EditDBEdit2.Text +'''');
     dm_wxp.ADOQuery1.SQL.Add('select 客户号,客户地址,电话号码 from pub_z_client where 客户名称='''
     +trim(self.DBedit2.Text) +'''');

     dm_wxp.ADOQuery1.Active :=true;
     //showmessage(inttostr(dm_wxp.ADOQuery1.RecordCount ));

     //dm_wxp.ADOQuery1.First ;

     if  dm_wxp.ADOQuery1.RecordCount=0 then

     begin
         showmessage('该客户信息不存在,请先输入客户信息');
         dbedit2.Text :='';
         {application.createform(Tfrm_cstm,frm_cstm);
         frm_cstm.Show ;   }
     end;
     end;
end;

end.