?? viewcasterunit.pas
字號:
Unit ViewCasterUnit;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, AAFont, AACtrls, ExtCtrls, ComCtrls, LbSpeedButton, ToolWin, DB,
ADODB, Grids, DBGridEh;
Type
TViewCasterForm = Class(TForm)
ToolBar1: TToolBar;
LbSpeedButton1: TLbSpeedButton;
LbSpeedButton2: TLbSpeedButton;
LbSpeedButton3: TLbSpeedButton;
ToolButton1: TToolButton;
LbSpeedButton4: TLbSpeedButton;
LbSpeedButton5: TLbSpeedButton;
Panel1: TPanel;
AALabel1: TAALabel;
DBGridEH1: TDBGridEh;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Splitter1: TSplitter;
ADOQuery2: TADOQuery;
DataSource2: TDataSource;
Panel2: TPanel;
DBGridEh2: TDBGridEh;
Panel3: TPanel;
Splitter2: TSplitter;
AALabel2: TAALabel;
DBGridEh3: TDBGridEh;
ADOQuery3: TADOQuery;
DataSource3: TDataSource;
Panel4: TPanel;
LbSpeedButton6: TLbSpeedButton;
LbSpeedButton8: TLbSpeedButton;
Procedure SetBtnEnable(bEn: Boolean);
Procedure LbSpeedButton5Click(Sender: TObject);
Procedure FormCreate(Sender: TObject);
Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
Procedure DBGridEh2DblClick(Sender: TObject);
Procedure LbSpeedButton4Click(Sender: TObject);
Procedure LbSpeedButton1Click(Sender: TObject);
Procedure LbSpeedButton2Click(Sender: TObject);
Procedure LbSpeedButton3Click(Sender: TObject);
Procedure DBGridEh1CellClick(Column: TColumnEh);
Procedure LbSpeedButton8Click(Sender: TObject);
Procedure DBGridEh2CellClick(Column: TColumnEh);
Procedure LbSpeedButton6Click(Sender: TObject);
Procedure ADOQuery1AfterScroll(DataSet: TDataSet);
Procedure ADOQuery2AfterScroll(DataSet: TDataSet);
Private
{ Private declarations }
Public
{ Public declarations }
End;
Var
ViewCasterForm : TViewCasterForm;
Implementation
Uses DM, EditCasterUnit, UnitCastPurposeUnit;
{$R *.dfm}
Procedure TViewCasterForm.LbSpeedButton5Click(Sender: TObject);
Begin
Close;
End;
Procedure TViewCasterForm.FormCreate(Sender: TObject);
Begin
ADOQuery1.Active := true;
SetBtnEnable(ADOQuery1.recordcount > 0);
If ADOQuery1.recordcount > 0 Then
DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);
End;
Procedure TViewCasterForm.FormClose(Sender: TObject;
Var Action: TCloseAction);
Begin
Action := cafree;
ViewCasterForm := Nil;
End;
Procedure TViewCasterForm.SetBtnEnable(bEn: Boolean);
Begin
LbSpeedButton1.Enabled := bEn;
LbSpeedButton2.Enabled := bEn;
LbSpeedButton3.Enabled := bEn;
LbSpeedButton4.Enabled := bEn;
End;
Procedure TViewCasterForm.DBGridEh2DblClick(Sender: TObject);
Begin
LbSpeedButton2.click; //修改顯示
End;
Procedure TViewCasterForm.LbSpeedButton4Click(Sender: TObject);
Begin
ADOQuery1.Close;
ADOQuery1.sql.Text := 'SELECT 公司名稱,公司編號 from 公司信息表';
ADOQuery1.open;
DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);
End;
Procedure TViewCasterForm.LbSpeedButton1Click(Sender: TObject);
Begin
If ADOQuery2.Active Then Begin
ADOQuery2.Append;
EditCasterUnit.BADD := true;
If Assigned(EditCasterForm) Then Begin
SetWindowPos(EditCasterForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
swp_nosize);
Exit;
End;
EditCasterForm := TEditCasterForm.create(self);
EditCasterForm.ShowModal;
End;
End;
Procedure TViewCasterForm.LbSpeedButton2Click(Sender: TObject);
Begin
If ADOQuery2.Active Then Begin
If ADOQuery2.recordcount = 0 Then Exit;
ADOQuery2.edit;
EditCasterUnit.BADD := false;
If Assigned(EditCasterForm) Then Begin
SetWindowPos(EditCasterForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
swp_nosize);
Exit;
End;
EditCasterForm := TEditCasterForm.create(self);
EditCasterForm.ShowModal;
End;
End;
Procedure TViewCasterForm.LbSpeedButton3Click(Sender: TObject);
Begin
If ADOQuery2.Active Then
If ADOQuery2.recordcount > 0 Then
ADOQuery2.Delete;
End;
Procedure TViewCasterForm.DBGridEh1CellClick(Column: TColumnEh);
Begin
ADOQuery3.Close;
If ADOQuery1.recordcount = 0 Then Exit;
ADOQuery2.sql.Text := 'select * from 客戶信息表 where 公司編號=''' +
ADOQuery1.fieldbyname('公司編號').Text + '''';
ADOQuery2.open;
If ADOQuery2.recordcount > 0 Then
DBGridEh2CellClick(DBGridEh2.Columns[0]);
End;
Procedure TViewCasterForm.LbSpeedButton8Click(Sender: TObject);
Begin
If ADOQuery3.Active Then
If ADOQuery3.recordcount > 0 Then
ADOQuery3.Delete;
End;
Procedure TViewCasterForm.DBGridEh2CellClick(Column: TColumnEh);
Begin
If ADOQuery2.recordcount = 0 Then Exit;
ADOQuery3.sql.Text :=
'SELECT * from 客戶意向表 where 公司編號=''' +
ADOQuery1.fieldbyname('公司編號').Text + ''' AND 客戶編號=''' +
ADOQuery2.fieldbyname('客戶編號').Text + '''';
ADOQuery3.open;
End;
Procedure TViewCasterForm.LbSpeedButton6Click(Sender: TObject);
Begin
If ADOQuery3.Active Then Begin
If Assigned(UnitCastPurposeForm) Then Begin
SetWindowPos(UnitCastPurposeForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
swp_nosize);
Exit;
End;
UnitCastPurposeForm := TUnitCastPurposeForm.create(self);
UnitCastPurposeForm.ShowModal;
End;
End;
Procedure TViewCasterForm.ADOQuery1AfterScroll(DataSet: TDataSet);
Begin
DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);
End;
Procedure TViewCasterForm.ADOQuery2AfterScroll(DataSet: TDataSet);
Begin
DBGridEh2CellClick(DBGridEh2.Columns.Items[0]);
End;
End.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -