📄 unit_thqk.pas
字号:
unit Unit_thqk;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ComCtrls, ExtCtrls, DB,
ADODB, DBTables;
type
TForm_thqk = class(TForm)
DataSource1: TDataSource;
Query1: TADOQuery;
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
ScrollBox: TScrollBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label12: TLabel;
Label13: TLabel;
Label15: TLabel;
Label17: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
DBEdit7: TDBEdit;
GroupBox8: TGroupBox;
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit8: TDBEdit;
DBEdit12: TDBEdit;
DBEdit14: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
Panel2: TPanel;
Label1: TLabel;
Panel5: TPanel;
btn_first1: TButton;
btn_prev1: TButton;
btn_next1: TButton;
btn_last1: TButton;
btn_addnew1: TButton;
btn_edit1: TButton;
btn_save1: TButton;
btn_cancel1: TButton;
Button1: TButton;
btn_delete: TButton;
TabSheet5: TTabSheet;
Button8: TButton;
Button10: TButton;
Button9: TButton;
DBGrid1: TDBGrid;
TabSheet6: TTabSheet;
Label8: TLabel;
Shape1: TShape;
Shape2: TShape;
DBEdit10: TDBEdit;
Label2: TLabel;
Label9: TLabel;
Label10: TLabel;
DBEdit9: TDBEdit;
Query1DSDesigner: TAutoIncField;
Query1DSDesigner2: TDateTimeField;
Query1DSDesigner3: TStringField;
Query1DSDesigner4: TStringField;
Query1DSDesigner5: TStringField;
Query1DSDesigner6: TIntegerField;
Query1DSDesigner7: TBCDField;
Query1DSDesigner8: TBCDField;
Query1DSDesigner9: TBCDField;
Query1_: TStringField;
Query1_2: TStringField;
Query1_3: TStringField;
Query1_4: TStringField;
Query1DSDesigner10: TStringField;
Query1DSDesigner11: TDateTimeField;
Query1DSDesigner12: TStringField;
Query1DSDesigner13: TStringField;
Query1DSDesigner14: TStringField;
Query1DSDesigner15: TStringField;
Query1DSDesigner16: TStringField;
Query1DSDesigner17: TStringField;
Query1DSDesigner18: TStringField;
Query1DSDesigner19: TDateTimeField;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
Query_contract_client: TQuery;
procedure btn_first1Click(Sender: TObject);
procedure btn_prev1Click(Sender: TObject);
procedure btn_next1Click(Sender: TObject);
procedure btn_last1Click(Sender: TObject);
procedure btn_addnew1Click(Sender: TObject);
procedure btn_deleteClick(Sender: TObject);
procedure btn_edit1Click(Sender: TObject);
procedure btn_save1Click(Sender: TObject);
procedure btn_cancel1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Button10Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBEdit5Exit(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
{ Private declarations }
//集成定义；
procedure EnableScrollBox(aScrollBox : TScrollBox);
procedure DisableScrollBox(aScrollBox : TScrollBox);
procedure DisableBtn;
//定义过程，用来使某些按钮失效
procedure EnableBtn;
//定义过程，用来使某些按钮有效
public
{ Public declarations }
end;
var
Form_thqk: TForm_thqk;
implementation
uses search, Unit_wxp, rp_thqk, Unit_public_jin;
{$R *.dfm}
procedure TForm_thqk.EnableScrollBox(aScrollBox : TScrollBox);
var Teller : Integer;
classname1, classnameshort:string;
ClassRef: TClass;
begin
with aScrollBox do
begin
For Teller := 0 to aScrollBox.ControlCount -1 do //.ControlCount - 1 do
begin
ClassRef :=aScrollBox.Controls[ Teller ].ClassType; //控件类型
classname1 :=aScrollBox.Controls[ Teller ].ClassName;
if ClassRef <> nil then
begin
if classname1 = 'TDBEdit' then aScrollBox.Controls[ Teller ].Enabled:= true;
if classname1 = 'TDBRadioGroup' then aScrollBox.Controls[ Teller ].Enabled:= true;
if classname1 = 'TDBMemo' then aScrollBox.Controls[ Teller ].Enabled:= true;
if classname1 = 'TDBComboBox' then aScrollBox.Controls[ Teller ].Enabled:= true;
end;
end;
end;
end;
procedure TForm_thqk.DisableScrollBox(aScrollBox : TScrollBox);
var Teller : Integer;
classname1, classnameshort:string;
ClassRef: TClass;
begin
with aScrollBox do
begin
For Teller := 0 to aScrollBox.ControlCount -1 do //.ControlCount - 1 do
begin
ClassRef :=aScrollBox.Controls[ Teller ].ClassType; //控件类型
classname1 :=aScrollBox.Controls[ Teller ].ClassName;
if ClassRef <> nil then
begin
if classname1 = 'TDBEdit' then aScrollBox.Controls[ Teller ].Enabled:= false;
if classname1 = 'TDBRadioGroup' then aScrollBox.Controls[ Teller ].Enabled:= false;
if classname1 = 'TDBMemo' then aScrollBox.Controls[ Teller ].Enabled:= false;
if classname1 = 'TDBComboBox' then aScrollBox.Controls[ Teller ].Enabled:= false;
end;
end;
end;
end;
procedure TForm_thqk.EnableBtn ;
begin
btn_first1.Enabled :=true;
btn_prev1.Enabled :=true;
btn_next1.Enabled :=true;
btn_last1.Enabled :=true;
btn_addnew1.Enabled :=true;
btn_edit1.Enabled :=true;
end;
procedure TForm_thqk.DisableBtn ;
begin
btn_first1.Enabled :=false;
btn_prev1.Enabled :=false;
btn_next1.Enabled :=false;
btn_last1.Enabled :=false;
btn_addnew1.Enabled :=false;
btn_edit1.Enabled :=false;
end;
procedure TForm_thqk.btn_first1Click(Sender: TObject);
begin
self.Query1.First;
end;
procedure TForm_thqk.btn_prev1Click(Sender: TObject);
begin
if not self.Query1.Bof then
self.Query1.Prior;
end;
procedure TForm_thqk.btn_next1Click(Sender: TObject);
begin
if not self.Query1.Eof then
self.Query1.Next;
end;
procedure TForm_thqk.btn_last1Click(Sender: TObject);
begin
self.Query1.Last;
end;
procedure TForm_thqk.btn_addnew1Click(Sender: TObject);
begin
EnableScrollBox(ScrollBox);
self.DBEdit8.Enabled:=false;
DisableBtn;
self.Query1.Append ;
btn_save1.Enabled :=true;
btn_cancel1.Enabled :=true;
DBEdit1.SetFocus;
end;
procedure TForm_thqk.btn_deleteClick(Sender: TObject);
begin
if application.MessageBox(pchar('确信要删除这条记录嘛？'),
pchar('注意'),MB_OKCANCEL)=IDOK then
self.Query1.Delete
end;
procedure TForm_thqk.btn_edit1Click(Sender: TObject);
begin
EnableScrollBox(ScrollBox);
self.DBEdit8.Enabled:=false;
DisableBtn;
self.query1.Edit ;
btn_save1.Enabled :=true;
btn_cancel1.Enabled :=true;
end;
procedure TForm_thqk.btn_save1Click(Sender: TObject);
begin
self.Query1.post ;
DisableScrollBox(ScrollBox);
//self.Query2.Query_contract_machine.ApplyUpdates ;
btn_save1.Enabled :=false;
btn_cancel1.Enabled :=false;
//锁住所有文本框
//LockEdit;
EnableScrollBox(ScrollBox);
//使按钮有效
EnableBtn ;
btn_addnew1.Enabled :=true;
btn_edit1.Enabled :=true;
end;
procedure TForm_thqk.btn_cancel1Click(Sender: TObject);
begin
self.Query1.Cancel ;
EnableBtn;
//LockEdit;
DisableScrollBox(ScrollBox);
btn_cancel1.Enabled :=false;
btn_save1.Enabled :=false;
end;
procedure TForm_thqk.Button1Click(Sender: TObject);
begin
self.Close;
end;
procedure TForm_thqk.Button8Click(Sender: TObject);
begin
Application.CreateForm(TForm_search, Form_search);
form_search.TransADO :=self.Query1 ;
unit_wxp.WhichForm := 203 ;
form_search.Showmodal ;
end;
procedure TForm_thqk.Button9Click(Sender: TObject);
begin
self.Query1.Active :=false;
self.Query1.SQL.Clear ;
self.Query1.SQL.Add('select * from pub_z_thqk ');
self.Query1.Active :=true;
unit_wxp.FinalSql:= 'select * from pub_z_thqk ';
end;
procedure TForm_thqk.FormCreate(Sender: TObject);
begin
self.Query1.Open;
Form_thqk.KeyPreview := true;
DisableScrollBox(ScrollBox);
unit_public_jin.Setcolor(ScrollBox);
//////// ///////////////////
//机型 FROM std_machine
with Query_contract_client do
begin
if active then close;
unprepare;
sql.Clear;
sql.Add('select distinct 机型 FROM std_machine ');
prepare;
open;
DBComboBox2.Items.Clear;
// DBComboBox4.Items.Clear;
while not eof do
begin
DBComboBox2.Items.Add(fieldbyname('机型').AsString);
// DBComboBox4.Items.Add(fieldbyname('机型').AsString);
next;
end;
end;
////////////////////
//////// ///////////////////
//hetong hao
with Query_contract_client do
begin
if active then close;
unprepare;
sql.Clear;
sql.Add('select distinct 合同号 from pub_z_contract');
prepare;
open;
DBComboBox1.Items.Clear;
// DBComboBox3.Items.Clear;
while not eof do
begin
DBComboBox1.Items.Add(fieldbyname('合同号').AsString);
// DBComboBox3.Items.Add(fieldbyname('合同号').AsString);
next;
end;
end;
////////////////////
end;
procedure TForm_thqk.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
procedure TForm_thqk.Button10Click(Sender: TObject);
begin
Application.CreateForm(TQRpt_thqk, QRpt_thqk);
QRpt_thqk.Query1.Active :=false;
QRpt_thqk.Query1.SQL.Clear ;
QRpt_thqk.Query1.SQL.Add(unit_wxp.FinalSql );
QRpt_thqk.Query1.Active :=true;
QRpt_thqk.Preview ;
QRpt_thqk.Free ;
end;
procedure TForm_thqk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;
procedure TForm_thqk.DBEdit5Exit(Sender: TObject);
var all:double;
begin
if (self.dbedit5.text<>'' ) and (self.dbedit6.text<>'' ) then
begin
all:=strtoint(self.DBEdit5.text)* strtofloat(self.DBEdit6.Text);
self.DBEdit8.Text:= floattostr(all);
end;
end;
procedure TForm_thqk.FormDestroy(Sender: TObject);
begin
Form_thqk:=nil;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -