dbdw.pas

本系统前端界面采用WINDOWS 窗口风格

unit dbdw;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Db, DBTables, Grids, DBGrids, StdCtrls, Buttons;

type
  TFrmdbdw = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    bm_Edit: TEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit_dz: TEdit;
    Edit_mc: TEdit;
    Edit_dwbm: TEdit;
    Edit_dh: TEdit;
    Edit_lxr: TEdit;
    BitBtn2: TBitBtn;
    Query_dbdw: TQuery;
    DataSource_dbdw: TDataSource;
    Query_bhb: TQuery;
    Database: TDatabase;
    procedure FormCreate(Sender: TObject);
    procedure bm_EditChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmdbdw: TFrmdbdw;

implementation




{$R *.DFM}

procedure TFrmdbdw.FormCreate(Sender: TObject);
begin
  Query_dbdw.close;
  Query_dbdw.UnPrepare;
  Query_dbdw.sql.Clear;
  Query_dbdw.sql.Add('select * from dbdwb');
  Query_dbdw.Prepare;
  Query_dbdw.open;
end;

procedure TFrmdbdw.bm_EditChange(Sender: TObject);
begin
  Query_dbdw.close;
  Query_dbdw.UnPrepare;
  Query_dbdw.sql.Clear;
  Query_dbdw.sql.Add('select * from dbdwb');
  Query_dbdw.sql.Add(' where kh_bm like'+''''+bm_edit.Text+'%'+'''');
  Query_dbdw.Prepare;
  Query_dbdw.open;
end;

procedure TFrmdbdw.BitBtn1Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TFrmdbdw.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CaFree;
end;

procedure TFrmdbdw.BitBtn3Click(Sender: TObject);
 var lsh:integer;
     dbdwbh:string;
begin
  if bitbtn3.Caption='&A添加' then
    begin
      bitbtn3.Caption:='&Y确定';
      Edit_mc.Clear;
      Edit_dwbm.Clear;
      Edit_lxr.Clear;
      Edit_dz.Clear;
      Edit_dh.Clear;
      bitbtn2.Enabled:=false;
    end
  else if  bitbtn3.Caption='&Y确定' then
    if (Edit_mc.Text='') or (Edit_dwbm.text='') then
      begin
        Application.MessageBox('请将调拔单位名称和单位编码填写完整','提示', MB_OK+MB_ICONINFORMATION);
        exit;
      end
    else
      begin
        Query_bhb.close;
        Query_bhb.UnPrepare;
        Query_bhb.sql.Clear;
        Query_bhb.sql.Add('select * from bhb');
        Query_bhb.Prepare;
        Query_bhb.open;
        lsh:=Query_bhb.fieldbyname('dbdwbh').asinteger;
        inc(lsh);
        Fmtstr(dbdwbh,'%.4d',[lsh]);
        Query_dbdw.Edit;
        Query_dbdw.Append;
        Query_dbdw.FieldByName('kh_bh').asstring:=dbdwbh;
        Query_dbdw.FieldByName('kh_bm').asstring:=Trim(Edit_dwbm.Text);
        Query_dbdw.FieldByName('kh_mc').asstring:=Trim(Edit_mc.Text);
        Query_dbdw.FieldByName('dz').asstring:=Trim(Edit_dz.Text);
        Query_dbdw.FieldByName('dh').asstring:=Trim(Edit_dh.Text);
        Query_dbdw.FieldByName('lxr').asstring:=Trim(Edit_lxr.Text);
        Query_bhb.Edit;
        Query_bhb.fieldbyname('dbdwbh').asinteger:=lsh;
        Try
          Database.StartTransaction;
          Query_dbdw.Post;
          Query_bhb.Post;
          Database.Commit;
          bitbtn3.Caption:='&A添加';
          bitbtn2.Enabled:=True;
        Except
          Database.Rollback;
          Application.MessageBox('信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
          exit;
        end
      end

end;

procedure TFrmdbdw.BitBtn2Click(Sender: TObject);
begin
if bitbtn2.Caption='更改属性' then
    begin
      bitbtn2.Caption:='确认更改';
      bitbtn3.Enabled:=False;
    end
  else if (Edit_mc.Text='') or  (Edit_dwbm.text='')  then
    begin
      Application.MessageBox('请填写调拔单位名称和编码','提示', MB_OK+MB_ICONINFORMATION);
      exit;
    end
  else
    begin
      Query_dbdw.Edit;
      Query_dbdw.FieldByName('kh_bm').asstring:=Trim(Edit_dwbm.Text);
      Query_dbdw.FieldByName('kh_mc').asstring:=Trim(Edit_mc.Text);
      Query_dbdw.FieldByName('dz').asstring:=Trim(Edit_dz.Text);
      Query_dbdw.FieldByName('dh').asstring:=Trim(Edit_dh.Text);
      Query_dbdw.FieldByName('lxr').asstring:=Trim(Edit_lxr.Text);
      Try
        Database.StartTransaction;
        Query_dbdw.Post;
        Database.Commit;
        bitbtn3.Enabled:=true;
        bitbtn2.Caption:='更改属性';
      Except
        Database.Rollback;
        Application.MessageBox('信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
        exit;
      end
    end;
end;

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

procedure TFrmdbdw.DBGrid1CellClick(Column: TColumn);
begin
  if bitbtn2.Caption='确认更改' then
    begin
      Edit_mc.Text:=Query_dbdw.fieldbyname('kh_mc').asstring;
      Edit_dwbm.Text:=Query_dbdw.fieldbyname('kh_bm').asstring;
      Edit_dz.Text:=Query_dbdw.fieldbyname('dz').asstring;
      Edit_dh.Text:=Query_dbdw.fieldbyname('dh').asstring;
      Edit_lxr.Text:=Query_dbdw.fieldbyname('lxr').asstring;
    end;
end;

end.