?? dbdfrm.pas
字號:
unit dbdfrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, db,Buttons, StdCtrls, DBCtrls, Mask, Grids, DBGridEh;
type
Tdbdgl = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
SpeedButton3: TSpeedButton;
Shape1: TShape;
Label1: TLabel;
Label2: TLabel;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape8: TShape;
DBText1: TDBText;
Label3: TLabel;
Shape9: TShape;
Shape10: TShape;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
DBText6: TDBText;
DBText7: TDBText;
Shape11: TShape;
Shape12: TShape;
Label10: TLabel;
DBGridEh1: TDBGridEh;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Shape13: TShape;
Shape14: TShape;
Label9: TLabel;
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
dbdgl: Tdbdgl;
implementation
uses datafrm,dbddyfrm;
{$R *.dfm}
procedure Tdbdgl.SpeedButton3Click(Sender: TObject);
begin
close;
end;
procedure Tdbdgl.SpeedButton4Click(Sender: TObject);
begin
yfgldata.qdbd.FindFirst;
end;
procedure Tdbdgl.SpeedButton5Click(Sender: TObject);
begin
yfgldata.qdbd.FindPrior;
end;
procedure Tdbdgl.SpeedButton6Click(Sender: TObject);
begin
yfgldata.qdbd.FindNext;
end;
procedure Tdbdgl.SpeedButton7Click(Sender: TObject);
begin
yfgldata.qdbd.FindLast;
end;
procedure Tdbdgl.SpeedButton1Click(Sender: TObject);
var
bh:string;
i:integer;
begin
if messagebox(dbdgl.Handle,'確認要刪除當前調撥單嗎?','營房工作管理系統',33)=1 then
begin
bh:=yfgldata.qdbd.FieldByName('調撥單編號').AsString;
for i:=1 to yfgldata.dbd1.RecordCount do
begin
if yfgldata.dbd1.FieldByName('調撥單編號').AsString=bh then
yfgldata.dbd1.Delete
else
yfgldata.dbd1.Next;
end;
yfgldata.dbd.Locate('調撥單編號',bh,[loCaseInsensitive]);
yfgldata.dbd.Delete;
yfgldata.qdbd.Active:=false;
yfgldata.Qdbd.Active:=true;
yfgldata.Qdbd1.Active:=false;
yfgldata.Qdbd1.Active:=true;
end;
end;
procedure Tdbdgl.SpeedButton2Click(Sender: TObject);
begin
yfgldata.dbd.Filter:='調撥單編號='''+yfgldata.Qdbd.FieldByName('調撥單編號').AsString+'''';
yfgldata.dbd.Filtered:=true;
yfgldata.dbd1.Filter:='調撥單編號='''+yfgldata.Qdbd.FieldByName('調撥單編號').AsString+'''';
yfgldata.dbd1.Filtered:=true;
dbddy.QuickRep1.Preview;
yfgldata.dbd.Filtered:=false;
yfgldata.dbd1.Filtered:=false;
end;
procedure Tdbdgl.FormShow(Sender: TObject);
begin
if yfgldata.Qdbd.Active then
yfgldata.Qdbd.Active:=false;
yfgldata.Qdbd.Active:=true;
if yfgldata.Qdbd1.Active then
yfgldata.Qdbd1.Active:=false;
yfgldata.Qdbd1.Active:=true;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -