unit1.pas

图书管理系统

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    Table1: TTable;
    DataSource1: TDataSource;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    Label3: TLabel;
    procedure BitBtn5Click(Sender: TObject); 
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    function GetDeptID(DeptName:string):string;
    function GetDeptName(DeptID:string):string;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.BitBtn5Click(Sender: TObject);
begin
  self.Edit1.Text:=self.Table1.fieldbyname('EmpID').AsString;
  self.Edit2.Text:=self.Table1.fieldbyname('EmpName').AsString;
  if self.Table1.FieldByName('EmpSex').AsString='男' then
    self.RadioGroup1.ItemIndex:=0
  else
    if self.Table1.FieldByName('EmpSex').AsString='女' then
      self.RadioGroup1.ItemIndex:=1
    else
      showmessage('性别为空！');
  self.ComboBox1.ItemIndex:=self.ComboBox1.Items.IndexOf(self.Table1.fieldByname('DeptName').AsString+'※'+self.Table1.fieldbyname('DeptID').AsString);
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
  self.Table1.Open;
  self.Table1.Edit;
  self.Table1.FieldByName('EmpID').AsString:=self.Edit1.Text;
  case self.RadioGroup1.ItemIndex of
  0:self.Table1.FieldByName('EmpSex').AsString:='男';
  1:self.Table1.FieldByName('EmpSex').AsString:='女'
  else
    showmessage('没有性别选择！');
  end;
  self.Table1.FieldByName('DeptID').AsString:=GetDeptID(self.ComboBox1.Text);
  self.Table1.FieldByName('DeptName').AsString:=GetDeptName(self.ComboBox1.Text);

end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  self.Table1.Open;
  self.Table1.First;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  self.Table1.Open;
  self.Table1.Prior;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  self.Table1.Open;
  self.Table1.Next;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  self.Table1.Open;
  self.Table1.Last;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  while(not self.Table1.Eof) do
  begin
    self.ComboBox1.Items.Add(self.Table1.fieldbyname('DeptName').AsString+'※'+self.Table1.fieldbyname('DeptID').AsString);
    self.Table1.Next;
  end;


end;

function TForm1.GetDeptID(DeptName: string): string;
begin
  if self.ComboBox1.Text='' then
    showmessage('没有选择部门！')
  else
    GetDeptID:=copy(DeptName,pos('※',DeptName)+2,99);
end;

function TForm1.GetDeptName(DeptID: string): string;
begin
  if self.ComboBox1.Text='' then
    showmessage('没有选择部门！')
  else
    GetDeptName:=copy(DeptID,1,pos('※',DeptID)-1);
end;

end.