machinetest.pas

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

        ADOQuery1.Cancel ;
        panel3.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_machinetest.DBEdit6Enter(Sender: TObject);
begin
     dbedit6.Text :=unit_wxp.myOffice  ;
end;

procedure TForm_machinetest.DBEdit51Enter(Sender: TObject);
begin
     dbedit51.Text :=datetostr(date);
end;

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

procedure TForm_machinetest.ADOQuery1AfterOpen(DataSet: TDataSet);
var
i:integer;
tempName:string;
begin
     Label42.Caption :=inttostr(ADOQuery1.Recordset.RecordCount) ;
     //统计出每个字段的数值
     if NotFirst=false then
     begin
        //StringGrid1.Cells [0,1]:='合计';
        //StringGrid1.Cells [0,0]:='统计数据';
        //j:=0;
        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;
                //tempName:= self.ADOQuery1 .Fields[i].FieldName;
                //if (tempName<>'单价') and (tempName<>'最小库存') then
                //begin
                //if (unit_wxp.GetFieldType(i)='number') or  (unit_wxp.GetFieldType(i)='money') then
                //begin
                   //j:=j+1;
                   //StringGrid1.Cells [j,0]:= tempName ;
                   //stringgrid1.ColCount := stringgrid1.ColCount +1;
                   //myIndex[j]:=i;

                //end;
                //end;
        end;
        NotFirst:=true;
     end;





{     while not ADOQuery1.Eof do
     begin
          for  i:=1 to j do
          begin
               myValue[i]:=myValue[i]+ADOQuery1.Fields.Fields[myIndex[i]].AsFloat ;

          end;
          ADOQuery1.Next ;

     end;
     for i:=1 to j do
     begin
         stringgrid1.Cells[i,1]:=floattostr(myValue[i]);
         myValue[i]:=0;
     end; }

end;

procedure TForm_machinetest.btn_filterrecordClick(Sender: TObject);
begin
     Application.CreateForm(TQRpt_Test, QRpt_Test);
     QRpt_Test.Query1 .Active :=false;
     QRpt_Test.Query1.SQL.Clear ;
     QRpt_Test.Query1.SQL.Add(unit_wxp.FinalSql );
     QRpt_Test.Query1.Active :=true;
     QRpt_Test.Preview ;
     QRpt_Test.Free ;
end;

procedure TForm_machinetest.Button2Click(Sender: TObject);
begin
     unit_wxp.FinalSql :='select * from pub_z_test';
     self.ADOQuery1.Active :=false;
     self.ADOQuery1.SQL.Clear ;
     self.ADOQuery1.SQL.Add('select * from pub_z_test ');
     self.ADOQuery1.Active :=true;
end;
procedure TForm_machinetest.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;
     //self.ADOQuery1.Active :=true;
end;

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

procedure   TForm_machinetest.SetCheckBoxValue ();

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

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

procedure   TForm_machinetest.SaveCheclBoxValue ;
var
i:integer;
myClass:Tclass;
myClassName:string;
begin
     //self.ControlCount
     for i:=0 to  groupbox2.ControlCount-1 do
     begin
     //self.Controls[i].ClassName
     myClass:=groupbox2.Controls[i].ClassType;
     myClassName:= groupbox2.Controls[i].ClassName;
     if myclassname='TDBCheckBox' then
     begin

          if  TDBCheckBox(groupbox2.Controls[i]).Checked =false then
              TDBCheckBox(groupbox2.Controls[i]).SetFocus ;
          //dbcheckbox1.SetFocus ;
          //dbcheckbox1.Checked :=false;
     end;
     end;

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

end;

procedure TForm_machinetest.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;
     label42.Caption :=inttostr(self.ADOQuery1.Recordset.RecordCount);
end;

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

procedure TForm_machinetest.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
         //dbedit49.AddItem(dm_wxp.ADOQuery1.Fields.Fields[0].AsString);
         dbedit49.Items.Add(dm_wxp.ADOQuery1.Fields.Fields[0].AsString);
         dm_wxp.ADOQuery1.Next ;
     end;

     dm_wxp.ADOQuery1.Active :=false;
end;

procedure TForm_machinetest.FormDestroy(Sender: TObject);
begin
  Form_machinetest:=nil;
end;

procedure TForm_machinetest.dbedit49Click(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.DBEdit49.Text) +'''');

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

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

     end;
end;

procedure TForm_machinetest.dbedit49Exit(Sender: TObject);
begin
     if dbedit49.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.DBEdit49.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.