【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-Client_info_U.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    {
     unit name  : Client_info_U
     Author     : 李涛
     Create date: 2005-09-14 10:46:13
     description: 工作站管理单元
    }
    
    unit Client_info_U;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Base_Form_U, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, DB,
      ADODB, Public_Unit_U, RpCon, RpConDS, RpBase, RpSystem, RpDefine, RpRave ;
    
    type
      TClient_info = class(TBase_Form)
        DBGrid2: TDBGrid;
        ADOQuery1: TADOQuery;
        DataSource1: TDataSource;
        ADOQuery1C_code: TStringField;
        ADOQuery1C_name: TStringField;
        ADOQuery1C_use: TStringField;
        ADOQuery1C_state: TStringField;
        ADOQuery1C_tran: TStringField;
        ADOQuery1C_stop: TStringField;
        ADOQuery1C_bz: TStringField;
        ADOQuery1state: TStringField;
        ADOQuery1tran: TStringField;
        ADOQuery1stop: TStringField;
        RvProject1: TRvProject;
        RvSystem1: TRvSystem;
        RvDataSetConnection1: TRvDataSetConnection;
        procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
          DataCol: Integer; Column: TColumn; State: TGridDrawState);
        procedure Del_BitClick(Sender: TObject);
        procedure ADD_BitClick(Sender: TObject);
        procedure Edit_BitClick(Sender: TObject);
        procedure DBGrid1DblClick(Sender: TObject);
        procedure Print_BitClick(Sender: TObject);
        procedure Query_BitClick(Sender: TObject);
        procedure FormShow(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Client_info: TClient_info;
    
    implementation
    
    {$R *.dfm}
    Uses MainDataModule_U,MainForm_U, Client_info_Browser_U, PublicQuery_u;
    
    procedure TClient_info.DBGrid1DrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TColumn;
      State: TGridDrawState);
    begin
      inherited;
         //SetGridColor(Client_Query,DBGrid1);
         //DbGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
    end;
    
    procedure TClient_info.Del_BitClick(Sender: TObject);
    begin
      inherited;
      if ADOQuery1.RecordCount>0 then
      if MessageDLG('确认要删除当前工作站吗？',mtCustom,[mbYes,mbNo],0)=mrYes then
      begin
         ADOQuery1.Delete;
      end;
    end;
    
    procedure TClient_info.ADD_BitClick(Sender: TObject);
    begin
      inherited;
      if not Assigned(Client_info_Browser) then
      begin
          Client_info_Browser:=TClient_info_Browser.Create(Self);
          Client_info_Browser.State:='insert'; //添加状态
          Client_info_Browser.ShowModal;
      end;
    end;
    
    procedure TClient_info.Edit_BitClick(Sender: TObject);
    begin
      inherited;
      if ADOQuery1.RecordCount>0 then
      if not Assigned(Client_info_Browser) then
      begin
        Client_info_Browser:=TClient_info_Browser.Create(Self);
        Client_info_Browser.State:='update'; //修改状态
        Client_info_Browser.Client_Code.Text:=ADOQuery1.FieldByName('C_Code').asString;
        Client_info_Browser.Client_Name.Text:=ADOQuery1.FieldByName('C_name').asString;
        Client_info_Browser.YongTu.Text:=ADOQuery1.FieldByName('C_use').asString;
        Client_info_Browser.Beizhu.Text:=ADOQuery1.FieldByName('C_bz').asString;
        //---下面字段使用的是Char类型需要用去掉空格。-------------------------
        if Trim(ADOQuery1.FieldByName('C_state').AsString)='1' then Client_info_Browser.C_state.Checked:=true
        else Client_info_Browser.C_state.Checked:=false;
        if Trim(ADOQuery1.FieldByName('C_tran').AsString)='1' then Client_info_Browser.Tran_State.Checked:=true
        else Client_info_Browser.Tran_State.Checked:=false;
        if Trim(ADOQuery1.FieldByName('C_stop').AsString)='1' then Client_info_Browser.C_Stop.Checked:=true
        else Client_info_Browser.C_Stop.Checked:=false;
        //--------------------------------------------------------------------
        //将要修改的信息添加到下面窗体中。
        Client_info_Browser.ShowModal;
      end;
    end;
    
    procedure TClient_info.DBGrid1DblClick(Sender: TObject);
    begin
      inherited;
      Edit_Bit.Click;
    end;
    
    procedure TClient_info.Print_BitClick(Sender: TObject);
    begin
      if ADOQuery1.Active then
      if ADOQuery1.RecordCount>0 then
      begin
        RvProject1.ProjectFile:=ExtractFilePath(Application.ExeName)+'rep\man_work.rav';
        RvProject1.Execute;
      end;
      inherited;
    end;
    
    procedure TClient_info.Query_BitClick(Sender: TObject);
    begin
      inherited;
      PublicQuery.ADO_name:=ADOQuery1.Name;
      PublicQuery.ShowModal;
    end;
    
    procedure TClient_info.FormShow(Sender: TObject);
    begin
      inherited;
      with ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from T_dia_computer');
        Open;
      end;
    end;
    
    end.
    

上一篇：Client_info_Browser_U.pas
下一篇：医学论文英语标题写作的修辞原则