📄 contract_tract.pas
字号:
unit contract_tract;
interface
uses
Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
Dialogs, DBCtrls, DB, DBTables, Mask, ExtCtrls, ComCtrls, Grids, DBGrids,
ADODB;
type
TForm_contract_tract = class(TForm)
Panel1: TPanel;
DataSource1: TDataSource;
Query12222: TQuery;
DataSource2: TDataSource;
Query2: TQuery;
DataSource3: TDataSource;
Query3: TQuery;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel2: TPanel;
ScrollBox: TScrollBox;
Label2: TLabel;
Label6: TLabel;
Label9: TLabel;
Label36: TLabel;
Label42: TLabel;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit_12: TDBEdit;
EditDBEdit30: TDBEdit;
GroupBox1: TGroupBox;
DBEdit1: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBMemo1: TDBMemo;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
DBGrid1: TDBGrid;
GroupBox5: TGroupBox;
DBGrid2: TDBGrid;
Button1: TButton;
Button2: TButton;
Panel3: TPanel;
het: TLabel;
TabSheet2: TTabSheet;
Panel5: TPanel;
btn_first: TButton;
btn_prev: TButton;
btn_next: TButton;
btn_last: TButton;
btn_addnew: TButton;
btn_edit: TButton;
btn_save: TButton;
btn_cancel: TButton;
Query_contract_client: TQuery;
DBGrid3: TDBGrid;
Panel6: TPanel;
btn_filterfield: TButton;
btn_filterrecord: TButton;
Button6: TButton;
DBMemo2: TDBMemo;
Label7: TLabel;
Button4: TButton;
Query1: TADOQuery;
Query3BDEDesigner: TIntegerField;
Query3BDEDesigner2: TStringField;
Query3BDEDesigner3: TDateTimeField;
Query3BDEDesigner4: TStringField;
Query3BDEDesigner5: TFloatField;
Query3BDEDesigner6: TStringField;
Query1DSDesigner: TAutoIncField;
Query1DSDesigner2: TStringField;
Query1DSDesigner3: TStringField;
Query1DSDesigner4: TStringField;
Query1DSDesigner5: TStringField;
Query1DSDesigner6: TStringField;
Query1DSDesigner7: TStringField;
Query1DSDesigner8: TStringField;
Query1DSDesigner9: TStringField;
Query1DSDesigner10: TDateTimeField;
Query1DSDesigner11: TStringField;
Query1DSDesigner12: TStringField;
Query1DSDesigner13: TStringField;
Query1DSDesigner14: TStringField;
Query1DSDesigner15: TStringField;
Query1DSDesigner16: TBCDField;
Query1DSDesigner17: TStringField;
Query1DSDesigner18: TStringField;
Query1DSDesigner19: TBCDField;
Query1DSDesigner20: TStringField;
Query1DSDesigner21: TBCDField;
Query1DSDesigner22: TStringField;
Query1DSDesigner23: TStringField;
Query1_: TStringField;
Query1_2: TStringField;
Query1DSDesigner24: TBCDField;
Query1DSDesigner25: TStringField;
Query1_3: TStringField;
Query1_4: TStringField;
Query1_5: TStringField;
Query1_6: TStringField;
Query1_7: TStringField;
Query1_8: TStringField;
Query1_9: TStringField;
Query1_10: TStringField;
Query1_11: TStringField;
Query1_12: TBCDField;
Query1DSDesigner26: TBCDField;
Query1DSDesigner27: TBCDField;
Query1DSDesigner28: TDateTimeField;
Query1DSDesigner29: TStringField;
Query1DSDesigner30: TStringField;
Query1DSDesigner31: TDateTimeField;
Query1DSDesigner32: TStringField;
Query1DSDesigner33: TStringField;
Query1DSDesigner34: TStringField;
Query1_13: TStringField;
Query1DSDesigner35: TStringField;
Query1_14: TStringField;
Query1_15: TStringField;
Query1_16: TStringField;
Query1_17: TStringField;
Query1_18: TStringField;
Query1_19: TStringField;
Query1DSDesigner36: TStringField;
Query1DSDesigner37: TStringField;
Query1DSDesigner38: TIntegerField;
Query1DSDesigner39: TDateTimeField;
Query1DSDesigner40: TBCDField;
Query1DSDesigner41: TStringField;
Query1DSDesigner42: TBCDField;
Query1DSDesigner43: TBCDField;
Query1DSDesigner44: TStringField;
Query1DSDesigner45: TStringField;
Query1DSDesigner46: TStringField;
Query1DSDesigner47: TMemoField;
Query1DSDesigner48: TBCDField;
Query1DSDesigner49: TStringField;
Query1DSDesigner50: TStringField;
Query1DSDesigner51: TMemoField;
Query1DSDesigner52: TStringField;
Query1DSDesigner53: TStringField;
Query1DSDesigner54: TStringField;
Query1DSDesigner55: TStringField;
Query1DSDesigner56: TStringField;
Query1DSDesigner57: TStringField;
Query1DSDesigner58: TStringField;
Query1DSDesigner59: TStringField;
Query1DSDesigner60: TStringField;
Query1DSDesigner61: TStringField;
Query1DSDesigner62: TStringField;
Query1DSDesigner63: TStringField;
Query1DSDesigner64: TStringField;
Query1DSDesigner65: TStringField;
Query1DSDesigner66: TStringField;
Query1DSDesigner67: TStringField;
Query1DSDesigner68: TStringField;
Query1DSDesigner69: TStringField;
Query1DSDesigner70: TDateTimeField;
Query1DSDesigner71: TDateTimeField;
Query1DSDesigner72: TDateTimeField;
Query1DSDesigner73: TIntegerField;
Query1DSDesigner74: TIntegerField;
Query1DSDesigner75: TDateTimeField;
Query1DSDesigner76: TIntegerField;
Query1DSDesigner77: TStringField;
Query1DSDesigner78: TStringField;
Query1DSDesigner79: TStringField;
Query1DSDesigner80: TStringField;
Query1DSDesigner81: TBCDField;
Query1DSDesigner82: TDateTimeField;
Query1DSDesigner83: TStringField;
Query1DSDesigner84: TStringField;
Query1DSDesigner85: TBooleanField;
Query1DSDesigner86: TMemoField;
Query1DSDesigner87: TMemoField;
Query1DSDesigner88: TDateTimeField;
Query1DSDesigner89: TMemoField;
Query1DSDesigner90: TBooleanField;
Query1DSDesigner91: TStringField;
Query1DSDesigner92: TBCDField;
Query1DSDesigner93: TBCDField;
Query1DSDesigner94: TBCDField;
Query1DSDesigner95: TBCDField;
Query1DSDesigner96: TDateTimeField;
Query1DSDesigner97: TStringField;
DBComboBox4: TDBComboBox;
Button5: TButton;
Panel4: 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;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Query12222AfterScroll(DataSet: TDataSet);
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_edit1Click(Sender: TObject);
procedure btn_save1Click(Sender: TObject);
procedure btn_cancel1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure btn_filterfieldClick(Sender: TObject);
procedure Query1AfterScroll(DataSet: TDataSet);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBComboBox1Enter(Sender: TObject);
procedure DBComboBox1Exit(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure PageControl1Change(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ private declarations }
procedure EnableScrollBox(aScrollBox : TScrollBox);
procedure DisableScrollBox(aScrollBox : TScrollBox);
procedure DisableBtn;
//定义过程，用来使某些按钮失效
procedure EnableBtn;
//定义过程，用来使某些按钮有效
procedure query2select;
public
{ public declarations }
DBComboBox1_str:string;
end;
var
Form_contract_tract: TForm_contract_tract;
implementation
uses Unit_wxp, search, Unit_public_jin;
{$R *.DFM}
procedure TForm_contract_tract.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_contract_tract.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_contract_tract.EnableBtn ;
begin
btn_first.Enabled :=true;
btn_prev.Enabled :=true;
btn_next.Enabled :=true;
btn_last.Enabled :=true;
btn_addnew.Enabled :=true;
btn_edit.Enabled :=true;
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_contract_tract.DisableBtn ;
begin
btn_first.Enabled :=false;
btn_prev.Enabled :=false;
btn_next.Enabled :=false;
btn_last.Enabled :=false;
btn_addnew.Enabled :=false;
btn_edit.Enabled :=false;
btn_addnew.Enabled :=false;
btn_edit.Enabled :=false;
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_contract_tract.query2select;
begin
//标的物；
with query2 do begin
if active then close;
unprepare;
parambyname('hth').AsString:=query1.fieldbyname('合同号').asstring;
prepare;
open;
end;
//付款记录
with query3 do begin
if active then close;
unprepare;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -