?? coviewunit.pas
字號:
Unit CoVIEWUnit;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, LbSpeedButton, ToolWin, DB, ADODB, Grids, DBGridEh,
AAFont, AACtrls, ExtCtrls;
Type
TComViewForm = Class(TForm)
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
ToolBar1: TToolBar;
LbSpeedButton1: TLbSpeedButton;
LbSpeedButton2: TLbSpeedButton;
LbSpeedButton3: TLbSpeedButton;
ToolButton1: TToolButton;
LbSpeedButton4: TLbSpeedButton;
LbSpeedButton5: TLbSpeedButton;
DBGridEH1: TDBGridEh;
Panel1: TPanel;
AALabel1: TAALabel;
Procedure SetBtnEnable(bEn: Boolean);
Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
Procedure LbSpeedButton5Click(Sender: TObject);
Procedure LbSpeedButton1Click(Sender: TObject);
Procedure LbSpeedButton2Click(Sender: TObject);
Procedure LbSpeedButton3Click(Sender: TObject);
Procedure LbSpeedButton4Click(Sender: TObject);
Procedure FormCreate(Sender: TObject);
Procedure DBGridEh1DblClick(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
End;
Var
ComViewForm : TComViewForm;
Implementation
Uses DM, EditComUnit, PUBFunction;
{$R *.dfm}
Procedure TComViewForm.FormClose(Sender: TObject;
Var Action: TCloseAction);
Begin
Action := cafree;
ComViewForm := Nil;
End;
Procedure TComViewForm.LbSpeedButton5Click(Sender: TObject);
Begin
Close;
End;
Procedure TComViewForm.LbSpeedButton1Click(Sender: TObject);
Begin
If ADOQuery1.Active Then Begin
ADOQuery1.Append;
EditComUnit.BADD := true;
If Assigned(EditComForm) Then Begin
SetWindowPos(EditComForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
swp_nosize);
Exit;
End;
EditComForm := TEditComForm.create(self);
EditComForm.ShowModal;
End;
End;
Procedure TComViewForm.LbSpeedButton2Click(Sender: TObject);
Begin
If ADOQuery1.Active Then Begin
If ADOQuery1.recordcount > 0 Then Begin
ADOQuery1.edit;
EditComUnit.BADD := false;
If Assigned(EditComForm) Then Begin
SetWindowPos(EditComForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
swp_nosize);
Exit;
End;
EditComForm := TEditComForm.create(self);
EditComForm.ShowModal;
End;
End;
End;
Procedure TComViewForm.LbSpeedButton3Click(Sender: TObject);
Procedure DelRecAboutGD(sTablename: String);
Var
ADOD : TADOQuery;
Begin
ADOD := TADOQuery.create(self);
With ADOD Do Begin
connection := DM.DataModule2.ADOConnection1;
sql.Text := 'DELETE * FROM ' + sTablename + ' where 公司編號=''' +
ADOQuery1.fieldbyname('公司編號').Text + '''';
ExecSQL;
Free;
End;
End;
Var
i : integer;
Begin
If ADOQuery1.Active Then Begin
//刪除其他相關表中編號
For i := 0 To sTnames.Count - 1 Do
If (ExtFieldInTable(sTnames[i], '公司編號')) Then
If Not (sTnames[i] = '公司信息表') Then
DelRecAboutGD(sTnames[i]);
If ADOQuery1.recordcount > 0 Then
ADOQuery1.Delete;
End;
End;
Procedure TComViewForm.LbSpeedButton4Click(Sender: TObject);
Var
crecno : integer;
Begin
crecno := ADOQuery1.RecNo;
ADOQuery1.Close;
ADOQuery1.sql.Text := 'select * from 公司信息表';
ADOQuery1.open;
If ADOQuery1.recordcount > crecno Then
ADOQuery1.RecNo := crecno;
End;
Procedure TComViewForm.FormCreate(Sender: TObject);
Begin
ADOQuery1.Active := true;
SetBtnEnable(ADOQuery1.recordcount > 0);
End;
Procedure TComViewForm.DBGridEh1DblClick(Sender: TObject);
Begin
LbSpeedButton2.click; //修改顯示
End;
Procedure TComViewForm.SetBtnEnable(bEn: Boolean);
Begin
// LbSpeedButton1.Enabled := bEn;
LbSpeedButton2.Enabled := bEn;
LbSpeedButton3.Enabled := bEn;
LbSpeedButton4.Enabled := bEn;
End;
End.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -