dangan.pas

一个小的设备管理系统

unit DangAn;

interface

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

type
  TDangAn_F = class(TForm)
    StatusBar1: TStatusBar;
    ADOConnectionDA: TADOConnection;
    DataSourceDA: TDataSource;
    GroupBox1: TGroupBox;
    StaticText1: TStaticText;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button6: TButton;
    StaticText2: TStaticText;
    BH_Edit: TEdit;
    button1: TButton;
    ADOTableDA: TADOTable;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    frCheckBoxObject1: TfrCheckBoxObject;
    DAK_ck: TCheckBox;
    SPB_ck: TCheckBox;
    ZBWJ_ck: TCheckBox;
    HT_ck: TCheckBox;
    ZXD_ck: TCheckBox;
    FP_ck: TCheckBox;
    YSD_ck: TCheckBox;
    AZBG_ck: TCheckBox;
    BXK_ck: TCheckBox;
    SMS_ck: TCheckBox;
    RPGP_ck: TCheckBox;
    HGZ_ck: TCheckBox;
    Button5: TButton;
    Button7: TButton;
    Label1: TLabel;
    MCH_edit: TEdit;
    Button8: TButton;
    DBgridDA: TDBGrid;
    frReport2: TfrReport;
    bz_edit: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ClearAll;
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);
    procedure DBgridDACellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button7Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure DBgridDADrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DangAn_F: TDangAn_F;

implementation

{$R *.dfm}
procedure TDangAn_F.ClearAll;
begin
    BH_Edit.Text:='';
    Mch_edit.Text:='';
    dak_ck.Checked:=false;
    spb_ck.Checked:=false;
    zbwj_ck.Checked:=false;
    ht_ck.Checked:=false;
    zxd_ck.Checked:=false;
    fp_ck.Checked:=false;
    ysd_ck.Checked:=false;
    hgz_ck.Checked:=false;
    azbg_ck.Checked:=false;

    bxk_ck.Checked:=false;
    sms_ck.Checked:=false;
    rpgp_ck.Checked:=false;

    bz_edit.Text:='';

end;

procedure TDangAn_F.Button1Click(Sender: TObject);
var
  searchoptions:TLocateoptions;
  a:boolean;
begin

  a:=ADOTableDA.Locate('唯一号',BH_Edit.Text,searchoptions);
  if not a then
    showmessage('没的这个唯一号！');
end;

procedure TDangAn_F.Button5Click(Sender: TObject);
var
  searchoptions:TLocateoptions;

begin
  if adoTableDA.Locate('唯一号',Bh_Edit.Text,searchoptions)
  then
     begin
       adotableDA.Edit;
       adotableda.SetFields([BH_edit.Text,mch_edit.Text,dak_ck.Checked,spb_ck.Checked,zbwj_ck.Checked,ht_ck.Checked,zxd_ck.Checked,fp_ck.Checked,ysd_ck.Checked,hgz_ck.Checked,azbg_ck.Checked,bxk_ck.Checked,sms_ck.Checked,rpgp_ck.Checked,bz_edit.Text]);
       adotableda.Post;
       dbgridDA.Refresh;
       ClearAll;

       showmessage('修改完成。');
     end
  else
     begin
       showmessage('没有这个唯一号！');
       exit;
     end;
end;

procedure TDangAn_F.Button3Click(Sender: TObject);
var
   searchoptions:TLocateoptions;
begin
   if adotableDA.Locate('唯一号',BH_Edit.Text,searchoptions)
     then
      begin
       adotableDA.Edit;
       adotableDA.Delete;

       dbgridDA.Refresh;
       ClearAll;
       Application.MessageBox('已经删除！','提示',0+64);
      end
   else
      begin
       showmessage('没有这个唯一号！');
       exit;
      end;

end;

procedure TDangAn_F.Button2Click(Sender: TObject);
var

   searchoptions:TLocateoptions;
begin

   if not adotableDA.Locate('唯一号',BH_Edit.Text,searchoptions)
     then
     begin

       adotableDA.Edit;
       adotableDA.AppendRecord([BH_Edit.text,MCH_Edit.text,DAK_ck.Checked,SPB_ck.Checked,ZBWJ_ck.Checked,HT_ck.Checked,ZXD_ck.Checked,FP_ck.Checked,YSD_ck.Checked,HGZ_ck.Checked,AZBG_ck.Checked,BXK_ck.Checked,SMS_ck.Checked,RPGP_ck.Checked,BZ_EDIT.Text]);


       dbgridDA.Refresh;
       Application.MessageBox('恭喜，添加成功！','提示',0+64);
       ClearAll;
     end
   else
     begin
       Application.MessageBox('已经存在这个唯一号！','提示',0+64);
     end;

end;

procedure TDangAn_F.Button4Click(Sender: TObject);
begin
   frreport1.ShowReport;
end;



procedure TDangAn_F.Button8Click(Sender: TObject);
var
  Query:TADOQuery;
  s:string;
begin
  if Trim(BH_Edit.Text)='' then
    begin
      Showmessage('唯一号呢？');
      BH_Edit.SetFocus;
      exit;
    end;

  s:='select 名称 from JibenXinxi where JibenXinxi.唯一号="'+BH_Edit.Text+'"';
  Query:=TADOQuery.Create(self);
  with Query do
    begin
      Connection:=ADOconnectionDA;
      Query.SQL.Add(s);
      Open;
    end;
  MCH_Edit.Text:=Query.Fields[0].AsString;


end;

procedure TDangAn_F.DBgridDACellClick(Column: TColumn);
begin
  BH_edit.Text:=ADOtableDA.Fields[0].AsString;
  MCH_edit.Text:=ADOtableDA.Fields[1].AsString;
  DAK_ck.Checked:=ADOtableDA.Fields[2].AsBoolean;
  SPB_ck.Checked:=ADOtableDA.Fields[3].AsBoolean;
  ZBWJ_ck.Checked:=ADOtableDA.Fields[4].AsBoolean;
  HT_ck.Checked:=ADOtableDA.Fields[5].AsBoolean;
  ZXD_ck.Checked:=ADOtableDA.Fields[6].AsBoolean;
  FP_ck.Checked:=ADOtableDA.Fields[7].AsBoolean;
  YSD_ck.Checked:=ADOtableDA.Fields[8].AsBoolean;
  HGZ_ck.Checked:=ADOtableDA.Fields[9].AsBoolean;
  AZBG_ck.Checked:=ADOtableDA.Fields[10].AsBoolean;
  BXK_ck.Checked:=ADOtableDA.Fields[11].AsBoolean;
  SMS_ck.Checked:=ADOtableDA.Fields[12].AsBoolean;
  RPGP_ck.Checked:=ADOtableDA.Fields[13].AsBoolean;
  BZ_edit.Text:=ADOtableDA.Fields[14].AsString;

end;

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

procedure TDangAn_F.Button7Click(Sender: TObject);
begin
 frreport2.ShowReport;
end;

procedure TDangAn_F.Button6Click(Sender: TObject);
begin
  close;
end;

procedure TDangAn_F.DBgridDADrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  nWidth:integer;
begin
  with dbGridDA.Canvas do
    begin
      nWidth := TextWidth(Column.Field.AsString) + 2;
      if nWidth > Column.Width then Column.Width := nWidth;
    end;

 

  with tdbgrid(sender) do
  begin
   if ((state = [gdselected]) or (state=[gdselected,gdfocused]))  then
    begin
     canvas.font.color :=clwhite;
     canvas.brush.color :=$00c08080;
    end
    else
    begin
      if datasource.dataset.recno mod 2<>0 then
        canvas.brush.color :=clwhite
      else
        canvas.brush.color :=$00cffefd;


    end;
    defaultdrawcolumncell(rect, datacol, column, state);
  end;
  dbGridDA.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TDBGrid).Canvas do //画 cell 的边框
  begin
    Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
    Pen.Color := $0000ff00; //定义画笔颜色(绿色)
    MoveTo(Rect.Right, Rect.Top); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
  end;


end;


end.