?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
XP_Form, XP_Button, ExtCtrls, StdCtrls, DBActns, ActnList, ImgList, Db,
DBTables, ComCtrls, ToolWin, DBCtrls, Mask, Buttons, Menus;
var str1:string;
var str2:string;
var str3:string;
type
TForm1 = class(TForm)
XP_Form1: TXP_Form;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
SpeedButton10: TSpeedButton;
SpeedButton9: TSpeedButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
DBComboBox4: TDBComboBox;
DBComboBox6: TDBComboBox;
DBComboBox8: TDBComboBox;
DBMemo1: TDBMemo;
Button1: TButton;
Table1: TTable;
DataSource1: TDataSource;
ImageList1: TImageList;
ActionList1: TActionList;
DataSetFirst1: TDataSetFirst;
DataSetLast1: TDataSetLast;
DataSetNext1: TDataSetNext;
DataSetPrior1: TDataSetPrior;
DataSetCancel1: TDataSetCancel;
Panel4: TPanel;
XP_Button1: TXP_Button;
XP_Button2: TXP_Button;
XP_Button3: TXP_Button;
XP_Button4: TXP_Button;
XP_Button5: TXP_Button;
XP_Button6: TXP_Button;
XP_Button7: TXP_Button;
XP_Button8: TXP_Button;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
PopupMenu2: TPopupMenu;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
XP_Button9: TXP_Button;
XP_Button10: TXP_Button;
DBNavigator1: TDBNavigator;
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton18Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2, Unit4, Unit3, Unit7, Unit6, Unit5,unit8;
{$R *.DFM}
procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
form1.close;
end;
procedure TForm1.SpeedButton18Click(Sender: TObject);
var temp:integer;
begin
XP_Button9.visible:=true;
XP_Button10.visible:=true;
table1.last;
table1.insert;
dbedit1.setfocus;
button1.enabled:=false;
end;
procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
XP_Button9.visible:=false;
Xp_Button10.visible:=false;
if(table1.modified)then
table1.applyupdates;
button1.enabled:=true;
if(str1='lichang')then
begin
if(table1.modified)then
table1.applyupdates;
Label17.enabled:=false;
DBComboBox8.enabled:=false;
str1:='';
end;
table1.last;
end;
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
XP_Button9.visible:=false;
XP_Button10.visible:=false;
if(table1.modified)then
table1.cancel;
button1.enabled:=true;
if(str1='lichang')then
begin
Label17.enabled:=false;
DBComboBox8.enabled:=false;
end;
table1.last;
end;
procedure TForm1.SpeedButton16Click(Sender: TObject);
begin
XP_Button9.visible:=true;
XP_Button10.visible:=true;
if(table1.state=dsedit)then
begin
table1.edit;
dbedit1.SetFocus;
dbedit1.SelectAll;
end;
button1.enabled:=false;
end;
procedure TForm1.SpeedButton14Click(Sender: TObject);
begin
popupmenu2.popup(form1.left+90,form1.top+300);
end;
procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm1.SpeedButton17Click(Sender: TObject);
var m1,m2:integer;
begin
m1:=form1.left;
m2:=form1.top;
popupmenu1.popup(m1+90,m2+128);
end;
procedure TForm1.N3Click(Sender: TObject);
begin
form4.show;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
if(application.MessageBox('是否確定要刪除記錄','確定刪除',MB_YESNO+MB_ICONQUESTION)<>IDNO)then
if(table1.recordcount>0)then
table1.delete;
table1.applyupdates;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
form6.show;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form5.show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
str3:=dbedit4.text;
str2:=dbedit2.text;
form8.caption:=str2+'本年度工資統計';
form8.show;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
Label17.enabled:=true;
DBComboBox8.enabled:=true;
XP_Button9.visible:=true;
XP_Button10.visible:=true;
str1:='lichang';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
table1.open;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -