?? maen.pas
字號:
unit maen;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, Db, DBTables, Grids, DBGrids, ExtCtrls, Buttons;
type
TForm2 = class(TForm)
Panel1: TPanel;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Panel2: TPanel;
DBGrid1: TDBGrid;
Label2: TLabel;
Panel3: TPanel;
Button7: TButton;
Panel4: TPanel;
SpeedButton6: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button8: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Priva declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit4, Unit1, Unit5, cmin, bb,sqlu;
{$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject);
begin
form4.Caption:='管理員修改密碼';
form4.show;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
begin
dbgrid1.datasource:=datamodule1.datasource1;
datamodule1.table2.Active:=false;
datamodule1.table1.active:=true;
label2.caption:='商品管理系統--商品信息';
end;
if radiobutton2.Checked=true then
begin
dbgrid1.datasource:=datamodule1.datasource2;
datamodule1.table1.Active:=false;
datamodule1.table2.active:=true;
label2.caption:='商品管理系統--公司信息';
end;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
with radiogroup1 do
begin
datamodule1.table1.active:=false;
datamodule1.table2.Active:=false;
label2.caption:='';
end;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
if radiobutton1.Checked=true then datamodule1.table1.first;
if radiobutton2.Checked=true then datamodule1.table2.first;
end;
procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
if radiobutton1.Checked=true then datamodule1.table1.Prior;
if radiobutton2.Checked=true then datamodule1.table2.prior;
end;
procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
if radiobutton1.Checked=true then datamodule1.table1.next;
if radiobutton2.Checked=true then datamodule1.table2.next;
end;
procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
if radiobutton1.Checked=true then datamodule1.table1.last;
if radiobutton2.Checked=true then datamodule1.table2.last;
end;
procedure TForm2.Button6Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
if messagedlg('確實要刪除當前記錄嗎?',mtwarning,[mbok,mbcancel],0)=mrok then
datamodule1.table1.delete;
if radiobutton2.Checked=true then
if messagedlg('確實要刪除當前記錄嗎?',mtwarning,[mbok,mbcancel],0)=mrok then
datamodule1.table2.delete;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
begin
form5.Caption:='插入新的商品記錄';
form5.show;
end;
if radiobutton2.Checked=true then
begin
form10.Caption:='插入新的公司記錄';
form10.show;
end;
end;
procedure TForm2.FormActivate(Sender: TObject);
begin
with radiogroup1 do
begin
if radiobutton2.Checked=true then
begin
datamodule1.Table2.Active:=true;
dbgrid1.datasource:=datamodule1.datasource2;
datamodule1.Table1.Active:=false;
end;
if radiobutton1.Checked=true then
begin
datamodule1.Table1.active:=true;
dbgrid1.datasource:=datamodule1.datasource1;
datamodule1.Table2.Active:=false;
end;
end;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
begin
form5.Caption:='修改商品記錄';
form5.Edit1.text:=dbgrid1.fields[0].asstring;
form5.Edit2.text:=dbgrid1.fields[1].asstring;
form5.Edit3.text:=dbgrid1.fields[5].asstring;
form5.Edit4.text:=dbgrid1.fields[2].asstring;
form5.Edit5.text:=dbgrid1.fields[3].asstring;
form5.Edit6.text:=dbgrid1.fields[4].asstring;
form5.Edit7.text:=dbgrid1.fields[6].asstring;
form5.Edit8.text:=dbgrid1.fields[8].asstring;
form5.show;
end;
if radiobutton2.Checked=true then
begin
form10.caption:='修改公司記錄';
form10.Edit1.text:=dbgrid1.Fields[0].asstring;
form10.Edit2.text:=dbgrid1.Fields[1].asstring;
form10.Edit3.text:=dbgrid1.Fields[2].asstring;
form10.Edit4.text:=dbgrid1.Fields[3].asstring;
form10.Edit5.text:=dbgrid1.Fields[4].asstring;
form10.show;
end;
end;
procedure TForm2.Button8Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
bform.quickrep1.Preview;
if radiobutton2.Checked=true then
bform.quickrep2.Preview;
end;
procedure TForm2.Button7Click(Sender: TObject);
begin
sqlform.show;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -