ywyxx.pas

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

unit ywyxx;

interface

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

type
  Tfrmywyxx = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    Edit_mc: TEdit;
    Edit_nl: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox1: TComboBox;
    Query_bm: TQuery;
    Query_ywy: TQuery;
    Query_ywyywy_bh: TStringField;
    Query_ywyywy_xm: TStringField;
    Query_ywyxb: TStringField;
    Query_ywynl: TStringField;
    Query_ywybm_bh: TStringField;
    Query_ywybm_mc: TStringField;
    DataSource_ywy: TDataSource;
    Query_bhb: TQuery;
    Database: TDatabase;
    btnDel: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn3Click(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    bmark:Tbookmark;
  end;

var
  frmywyxx: Tfrmywyxx;
  bmbh:array[0..20] of string;


implementation




{$R *.DFM}

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

procedure Tfrmywyxx.FormCreate(Sender: TObject);
  var i:integer;
begin
  i:=0;
  Query_bm.close;
  Query_bm.UnPrepare;
  Query_bm.sql.Clear;
  Query_bm.sql.Add('select * from bmb');
  Query_bm.Prepare;
  Query_bm.open;
  Query_bm.First;
  while not Query_bm.Eof do
    begin
      combobox1.Items.Add(Query_bm.fieldbyname('bm_mc').asstring);
      bmbh[i]:=Query_bm.fieldbyname('bm_bh').asstring;
      Query_bm.Next;
      inc(i);
    end;
  Query_ywy.close;
  Query_ywy.UnPrepare;
  Query_ywy.sql.Clear;
  Query_ywy.sql.Add('select * from ywyb');
  Query_ywy.Prepare;
  Query_ywy.open;
end;

procedure Tfrmywyxx.BitBtn1Click(Sender: TObject);
  var lsh:integer;
      ywybh:string;
begin
  if bitbtn1.Caption='&A添加' then
    begin
      bitbtn1.Caption:='&Y确定';
      Edit_mc.Clear;
      Edit_nl.Clear;
      Edit_mc.SetFocus;
      bitbtn2.Enabled:=false;
      btnDel.Enabled:=false;
    end
  else if  bitbtn1.Caption='&Y确定' then
    if (Edit_mc.Text='') or (combobox1.ItemIndex<0)  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('ywybh').asinteger;
        inc(lsh);
        Fmtstr(ywybh,'%.3d',[lsh]);
        Query_ywy.Edit;
        Query_ywy.Append;
        Query_ywy.FieldByName('ywy_bh').asstring:=ywybh;
        Query_ywy.FieldByName('ywy_xm').asstring:=Trim(Edit_mc.Text);
        if RadioButton1.Checked then
          Query_ywy.FieldByName('xb').asstring:=RadioButton1.Caption
        else
          Query_ywy.FieldByName('xb').asstring:=RadioButton2.Caption;
        Query_ywy.FieldByName('nl').asstring:=Trim(Edit_nl.Text);
        Query_ywy.FieldByName('bm_bh').asstring:=bmbh[combobox1.itemindex];
        Query_bhb.Edit;
        Query_bhb.fieldbyname('ywybh').asinteger:=lsh;
        Try
          Database.StartTransaction;
          Query_ywy.Post;
          Query_bhb.Post;
          Database.Commit;
          bitbtn1.Caption:='&I添加';
          bitbtn2.Enabled:=True;
          btnDel.Enabled:=true;
          formcreate(self);
        Except
          Database.Rollback;
          Application.MessageBox('信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
          exit;
        end
      end
end;

procedure Tfrmywyxx.BitBtn2Click(Sender: TObject);
begin
 if bitbtn2.Caption='更改属性' then
    begin
      bitbtn2.Caption:='确认更改';
      bitbtn1.Enabled:=False;
    end
  else if (Edit_mc.Text='') or (combobox1.ItemIndex<0)  then
    begin
      Application.MessageBox('请填写部门名称','提示', MB_OK+MB_ICONINFORMATION);
      exit;
    end
  else
    begin
        Query_ywy.Edit;
        Query_ywy.FieldByName('ywy_xm').asstring:=Trim(Edit_mc.Text);
        if RadioButton1.Checked then
          Query_ywy.FieldByName('xb').asstring:=RadioButton1.Caption
        else
          Query_ywy.FieldByName('xb').asstring:=RadioButton2.Caption;
        Query_ywy.FieldByName('nl').asstring:=Trim(Edit_nl.Text);
        Query_ywy.FieldByName('bm_bh').asstring:=bmbh[combobox1.itemindex];
      Try
        Database.StartTransaction;
        Query_ywy.Post;
        Database.Commit;
        bitbtn1.Enabled:=true;
        bitbtn2.Caption:='更改属性';
      Except
        Database.Rollback;
        Application.MessageBox('部门信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
        exit;
      end
    end;
end;

procedure Tfrmywyxx.DBGrid1CellClick(Column: TColumn);
begin
  if bitbtn2.Caption='确认更改' then
    begin
      Edit_mc.Text:=Query_ywy.fieldbyname('ywy_xm').asstring;
      Edit_nl.Text:=Query_ywy.fieldbyname('nl').asstring;
      if  Query_ywy.fieldbyname('xb').asstring='男' then
        RadioButton1.Checked
      else RadioButton2.Checked;
      combobox1.Text:=Query_ywy.fieldbyname('bm_mc').asstring;
      Edit_nl.Text:=Query_ywy.fieldbyname('nl').asstring;
    end;
end;

procedure Tfrmywyxx.BitBtn3Click(Sender: TObject);
begin
  Self.Close;
end;

procedure Tfrmywyxx.btnDelClick(Sender: TObject);
begin
  with query_ywy do begin
    if bof and eof then exit;
    if application.MessageBox('确定要删除此条记录吗?','询问',mb_okcancel+mb_iconquestion)=id_ok then
       delete;
  end;       
end;

end.