zc.pas

职工信息管理系统的源代码

unit zc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, ExtCtrls, DBCtrls,quan, jpeg, Buttons,shellapi;

type
  Tzc1 = class(TForm)
    Label3: TLabel;
    Label1: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    DataSource1: TDataSource;
    zc: TTable;
    DBNavigator1: TDBNavigator;
    zcBDEDesigner: TStringField;
    bitbtn1: TSpeedButton;
    button1: TSpeedButton;
    Button4: TSpeedButton;
    Button5: TSpeedButton;
    button6: TSpeedButton;
    Button3: TSpeedButton;
    button2: TSpeedButton;
    zcJg: TStringField;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormPaint(Sender: TObject);
    procedure bitbtn1Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zc1: Tzc1;
    f,d1,d2:integer;
implementation

{$R *.dfm}

procedure Tzc1.Button1Click(Sender: TObject);
begin
f:=0;
edit1.Text:='';
edit2.Text:='0';
edit1.ReadOnly:=false;
edit2.ReadOnly:=false;
edit1.SetFocus;
button2.Enabled:=false;
button4.Enabled:=false;
button1.Enabled:=false;
button3.Enabled:=true;
button5.Enabled:=true;
DBNavigator1.Enabled:=false;
end;

procedure Tzc1.Button2Click(Sender: TObject);
begin
DBNavigator1.Enabled:=true;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=true;
button5.Enabled:=true;
button4.Enabled:=false;
f:=1;
edit1.ReadOnly:=true;
edit2.ReadOnly:=false;
edit2.SetFocus;
end;

procedure Tzc1.Button4Click(Sender: TObject);
begin
if application.MessageBox('确实要删除吗？','删除',mb_okcancel+mb_iconquestion)=idok then
if zc.RecordCount=0 then
begin
button4.Enabled:=false;
application.MessageBox('数据已清空！','信息',mb_ok+mb_iconinformation);
button2.Enabled:=false;
button3.Enabled:=false;
end
else
if zc.Eof then
zc.First
else
begin
zc.Active:=true;
zc.Delete;
 edit1.Text:=qu.cf(zc.fieldbyname('职称').asstring);
edit2.Text:=qu.cf(zc.fieldbyname('jg').asstring);
end;
end;

procedure Tzc1.Button3Click(Sender: TObject);
begin
DBNavigator1.Enabled:=true;
zc.Prior;
edit1.Text:=qu.cf(zc.fieldbyname('职称').asstring);
edit2.Text:=qu.cf(zc.fieldbyname('jg').asstring);
button1.Enabled:=true;
button2.Enabled:=true;
button5.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=true;
edit1.ReadOnly:=true;
edit2.ReadOnly:=true;
if zc.RecordCount=0 then
begin
button4.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
end
end;

procedure Tzc1.Button5Click(Sender: TObject);
begin
DBNavigator1.Enabled:=true;
zc.First;
if f=0 then
begin
zc.SetKey;
zc.fieldbyname('职称').asstring:=qu.cf(edit1.Text);
if (zc.GotoKey) or (edit1.text='') then
begin
if application.MessageBox('此编号已存在或编号为空','信息',mb_ok+mb_iconinformation)=idok then
begin
zc.Next;
edit1.Text:=qu.cf(zc.fieldbyname('职称').asstring);
edit2.Text:=qu.cf(zc.fieldbyname('jg').asstring);
end;
end
else
begin
zc.Active:=true;
zc.Insert;
zc.fieldbyname('职称').asstring:=qu.cf(edit1.Text);
IF edit2.Text='' then
edit2.Text:='0';
zc.fieldbyname('jg').asstring:=qu.cf(edit2.Text);
zc.Post;
zc.Active:=true;
edit1.Text:=qu.cf(zc.fieldbyname('职称').asstring);
edit2.Text:=qu.cf(zc.fieldbyname('jg').asstring);
end
end
else
begin
zc.Active:=true;
zc.SetKey;
zc.fieldbyname('职称').asstring:=qu.cf(edit1.Text);
if zc.GotoKey then
begin
zc.Edit;
IF edit2.Text='' then
edit2.Text:='0';
zc.fieldbyname('jg').asstring:=qu.cf(edit2.Text);
zc.Post;
end;
end;
edit1.ReadOnly:=true;
edit2.ReadOnly:=true;
button1.Enabled:=true;
button2.Enabled:=true;
button4.Enabled:=true;
button3.Enabled:=false;
button5.Enabled:=false;
end;

procedure Tzc1.Button6Click(Sender: TObject);
begin
if button5.Enabled=true then
if application.MessageBox('关闭前的操作未保存，要保存吗？保存则按确定，否则按取消','关闭',mb_okcancel+mb_iconquestion)=idok then
button5.Click;
button3.Enabled:=false;
button5.Enabled:=false;
button1.Enabled:=true;
button2.Enabled:=true;
button4.Enabled:=true;
close;
end;

procedure Tzc1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
edit1.ReadOnly:=true;
edit2.ReadOnly:=true;
zc.Active:=false;
action:=cafree;
end;

procedure Tzc1.FormCreate(Sender: TObject);
begin
zc.Active:=false;
zc.DatabaseName:=s;
zc.TableName:='zc.db';
zc.Active:=true;
if zc.RecordCount=0 then
begin
button2.Enabled:=false;
button4.Enabled:=false;
end
else
begin
button2.Enabled:=true;
button4.Enabled:=true;
end;
edit1.ReadOnly:=true;
edit2.ReadOnly:=true;
zc.First;
button3.Enabled:=false;
button5.Enabled:=false;
button1.Enabled:=true;
DBNavigator1.Enabled:=true;
end;

procedure Tzc1.FormShow(Sender: TObject);
begin
ky:='';
zc.Active:=false;
zc.DatabaseName:=s;
zc.TableName:='zc.db';
zc.Active:=true;
if zc.RecordCount=0 then
begin
button2.Enabled:=false;
button4.Enabled:=false;
end
else
begin
button2.Enabled:=true;
button4.Enabled:=true;
end;
edit1.ReadOnly:=true;
edit2.ReadOnly:=true;
zc.First;
edit1.Text:=qu.cf(zc.fieldbyname('职称').asstring);
edit2.Text:=qu.cf(zc.fieldbyname('jg').asstring);
button3.Enabled:=false;
button5.Enabled:=false;
button1.Enabled:=true;
DBNavigator1.Enabled:=true;
end;

procedure Tzc1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
edit1.Text:=qu.cf(zc.fieldbyname('职称').asstring);
edit2.Text:=qu.cf(zc.fieldbyname('jg').asstring);
end;

procedure Tzc1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;

procedure Tzc1.FormPaint(Sender: TObject);
var a,b:real;
i:integer;
begin
a:=clientheight/256;
b:=0;
for i:=255 downto 0 do
begin
canvas.Brush.Color:=$000000000+i*$10000;
canvas.FillRect(rect(0,round(b),clientwidth,round(a+b)));
b:=b+a;
end;
end;

procedure Tzc1.bitbtn1Click(Sender: TObject);
begin
shellexecute(application.Handle,'open',pchar(s+'\help\zhi_cheng.htm'),'','',SW_SHOW);
end;

procedure Tzc1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ky:=edit2.text;
if edit2.ReadOnly=false then
if (key <>48)and ((key<97) OR (key>105))and (key <>144) and (key <>49)and (key <>50)and (key <>51)and (key <>52)and (key <>53)and (key <>54)and (key <>55)and (key <>56)and (key <>57)and (key <>13)and (key <>8)then
begin
application.MessageBox('此处应输入数字','错误',mb_ok);
edit2.Text:=ky;
edit2.SelStart:=length(ky);
end
else
ky:=edit2.Text;
end;

procedure Tzc1.FormActivate(Sender: TObject);
begin
zc.Active:=false;
zc.DatabaseName:=s;
zc.TableName:='zc.db';
zc.Active:=true;
end;

end.