📄 mc_insert.pas
字号:
unit MC_Insert;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBTables, Db, Grids, DBGrids, DBCtrls, StdCtrls, ComCtrls, Mask, Buttons;
type
TMInsert = class(TForm)
GroupBox1: TGroupBox;
DBLookupComboBox1: TDBLookupComboBox;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
GroupBox3: TGroupBox;
DBGrid2: TDBGrid;
DataSource1: TDataSource;
Query1: TQuery;
Query1BDEDesigner: TStringField;
Query1BDEDesigner2: TStringField;
DataSource2: TDataSource;
Table1: TTable;
Table1BDEDesigner: TStringField;
Table1BDEDesigner2: TStringField;
Table1BDEDesigner7: TStringField;
Table2: TTable;
Table2BDEDesigner: TStringField;
Table2BDEDesigner2: TStringField;
Table2BDEDesigner3: TStringField;
Table2BDEDesigner4: TStringField;
Table2BDEDesigner6: TStringField;
Table2BDEDesigner18: TStringField;
DataSource3: TDataSource;
GroupBox4: TGroupBox;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Table3: TTable;
Table3BDEDesigner: TStringField;
Table3BDEDesigner2: TStringField;
Table3BDEDesigner3: TStringField;
Table3BDEDesigner4: TFloatField;
Table3BDEDesigner5: TDateTimeField;
Table3BDEDesigner6: TDateTimeField;
Table3BDEDesigner7: TIntegerField;
Table3BDEDesigner8: TIntegerField;
Table3BDEDesigner9: TIntegerField;
Table3BDEDesigner10: TFloatField;
Table3BDEDesigner11: TFloatField;
Table3BDEDesigner12: TFloatField;
DataSource4: TDataSource;
Label1: TLabel;
Label2: TLabel;
DBText1: TDBText;
DBText2: TDBText;
Label3: TLabel;
DBEdit1: TDBEdit;
Label4: TLabel;
DBEdit2: TDBEdit;
Label5: TLabel;
DBEdit3: TDBEdit;
Label6: TLabel;
DBEdit4: TDBEdit;
Label7: TLabel;
DBEdit5: TDBEdit;
Label8: TLabel;
DBEdit6: TDBEdit;
Label9: TLabel;
DBEdit7: TDBEdit;
Label10: TLabel;
DBEdit8: TDBEdit;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Label11: TLabel;
Label12: TLabel;
DBText3: TDBText;
DBText4: TDBText;
Label13: TLabel;
DBEdit9: TDBEdit;
Label14: TLabel;
DBEdit10: TDBEdit;
Label15: TLabel;
DBEdit11: TDBEdit;
Label16: TLabel;
DBEdit12: TDBEdit;
Label17: TLabel;
DBEdit13: TDBEdit;
Label18: TLabel;
DBEdit14: TDBEdit;
Label19: TLabel;
DBEdit15: TDBEdit;
Label20: TLabel;
DBEdit16: TDBEdit;
DateTimePicker3: TDateTimePicker;
DateTimePicker4: TDateTimePicker;
Table4: TTable;
Table4BDEDesigner: TStringField;
Table4BDEDesigner2: TStringField;
Table4BDEDesigner3: TStringField;
Table4BDEDesigner4: TFloatField;
Table4BDEDesigner5: TDateTimeField;
Table4BDEDesigner6: TDateTimeField;
Table4BDEDesigner7: TIntegerField;
Table4BDEDesigner8: TIntegerField;
Table4BDEDesigner9: TIntegerField;
Table4BDEDesigner10: TFloatField;
Table4BDEDesigner11: TFloatField;
Table4BDEDesigner12: TFloatField;
DataSource5: TDataSource;
Label21: TLabel;
Label22: TLabel;
DBText5: TDBText;
DBText6: TDBText;
Label23: TLabel;
DBEdit17: TDBEdit;
Label24: TLabel;
DBEdit18: TDBEdit;
Label25: TLabel;
DBEdit19: TDBEdit;
Label26: TLabel;
DBEdit20: TDBEdit;
Label27: TLabel;
DBEdit21: TDBEdit;
Label28: TLabel;
DBEdit22: TDBEdit;
Label29: TLabel;
DBEdit23: TDBEdit;
Label30: TLabel;
DBEdit24: TDBEdit;
DateTimePicker5: TDateTimePicker;
DateTimePicker6: TDateTimePicker;
DataSource6: TDataSource;
Table5: TTable;
Table5BDEDesigner: TStringField;
Table5BDEDesigner2: TStringField;
Table5BDEDesigner3: TStringField;
Table5BDEDesigner4: TFloatField;
Table5BDEDesigner5: TDateTimeField;
Table5BDEDesigner6: TDateTimeField;
Table5BDEDesigner7: TIntegerField;
Table5BDEDesigner8: TIntegerField;
Table5BDEDesigner9: TIntegerField;
Table5BDEDesigner10: TFloatField;
Table5BDEDesigner11: TFloatField;
Table5BDEDesigner12: TFloatField;
GroupBox5: TGroupBox;
Query2: TQuery;
Query2BDEDesigner: TStringField;
Query2BDEDesigner2: TStringField;
Query2BDEDesigner3: TFloatField;
Query2BDEDesigner4: TFloatField;
Query2BDEDesigner5: TFloatField;
Query2BDEDesigner6: TFloatField;
Query2BDEDesigner7: TStringField;
Query2BDEDesigner8: TFloatField;
Query2BDEDesigner9: TStringField;
Query2BDEDesigner10: TFloatField;
Query2BDEDesigner11: TDateTimeField;
Query2BDEDesigner12: TDateTimeField;
Query2BDEDesigner13: TFloatField;
Query2BDEDesigner14: TFloatField;
Query2BDEDesigner15: TFloatField;
Query2BDEDesigner16: TFloatField;
Query2BDEDesigner17: TStringField;
DataSource7: TDataSource;
DBGrid3: TDBGrid;
GroupBox6: TGroupBox;
DBGrid4: TDBGrid;
BitBtn1: TBitBtn;
Query3: TQuery;
DataSource8: TDataSource;
Query3BDEDesigner: TStringField;
Query3BDEDesigner2: TStringField;
Query3BDEDesigner3: TStringField;
Query3BDEDesigner4: TFloatField;
Query3BDEDesigner5: TDateTimeField;
Query3BDEDesigner6: TDateTimeField;
Query3BDEDesigner7: TFloatField;
Query3BDEDesigner8: TFloatField;
Query3BDEDesigner9: TFloatField;
Query3BDEDesigner10: TFloatField;
Query3BDEDesigner11: TStringField;
BitBtn4: TBitBtn;
BitBtn2: TBitBtn;
BitBtn5: TBitBtn;
BitBtn3: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
GroupBox7: TGroupBox;
Label31: TLabel;
Label32: TLabel;
DBGrid5: TDBGrid;
DateTimePicker7: TDateTimePicker;
DateTimePicker8: TDateTimePicker;
BitBtn10: TBitBtn;
GroupBox8: TGroupBox;
Label33: TLabel;
Label34: TLabel;
DBGrid6: TDBGrid;
DateTimePicker9: TDateTimePicker;
DateTimePicker10: TDateTimePicker;
BitBtn11: TBitBtn;
DataSource10: TDataSource;
Query5: TQuery;
DataSource9: TDataSource;
Query4: TQuery;
Label35: TLabel;
ComboBox1: TComboBox;
Query6: TQuery;
Table2BDEDesigner5: TStringField;
Table2BDEDesigner7: TStringField;
procedure Table2AfterScroll(DataSet: TDataSet);
procedure DBGrid3KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrid4KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure DateTimePicker2CloseUp(Sender: TObject);
procedure DateTimePicker4CloseUp(Sender: TObject);
procedure DateTimePicker6CloseUp(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MInsert: TMInsert;
implementation
uses MC_MainForm;
{$R *.DFM}
procedure TMInsert.Table2AfterScroll(DataSet: TDataSet);
begin
if Table2.RecordCount<>0 then
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Select * From 其它费用表');
Query2.SQL.Add('Where 收费编号=:A');
Query2.ParamByName('A').AsString:=Table2.FieldByName('房间编号').AsString;
Query2.Open;
end;
if Table2.RecordCount<>0 then
begin
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('Select * From 常用费用');
Query3.SQL.Add('Where 收费编号=:A');
Query3.ParamByName('A').AsString:=Table2.FieldByName('房间编号').AsString;
Query3.Open;
end;
end;
procedure TMInsert.DBGrid3KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_DOWN then
begin
if Query2.FieldbyName('户主姓名').AsString='' then
begin
Query2.Cancel;
Abort;
end;
end;
if key=VK_Insert then Abort;
end;
procedure TMInsert.DBGrid4KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_DOWN then
begin
if Query3.FieldbyName('户主姓名').AsString='' then
begin
Query3.Cancel;
Abort;
end;
end;
if key=VK_Insert then Abort;
end;
procedure TMInsert.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MInsert.Release;
MInsert:=Nil;
end;
procedure TMInsert.BitBtn4Click(Sender: TObject);
begin
Close;
end;
procedure TMInsert.BitBtn3Click(Sender: TObject);
begin
if Table3.RecordCount<>0 then
begin
//-------------------------------------------------------
if BitBtn3.Caption='取消填写' then
begin
BitBtn5.Caption:='填写读数';
BitBtn3.Caption:='读数初始化';
DBEdit3.BorderStyle:=bsNone;
DBEdit3.Color:=ClScrollBar;
DBEdit3.Enabled:=False;
DBEdit2.BorderStyle:=bsNone;
DBEdit2.Color:=ClScrollBar;
DBEdit2.Enabled:=False;
DateTimePicker2.Enabled:=False;
Table3.Cancel;
Exit;
end;
if BitBtn3.Caption='读数初始化' then
begin
BitBtn3.Caption:='保存读数';
BitBtn5.Caption:='取消读数';
DBEdit4.BorderStyle:=bsSingle;
DBEdit4.Color:=clWhite;
DBEdit4.Enabled:=True;
Table3.Edit;
DBEdit4.SetFocus;
Exit;
end;
if BitBtn3.Caption='保存读数' then
begin
if Length(Table3.FieldByName('上月读数').AsString)=0 then
ShowMessage('请输入上月读数.')
else
begin
BitBtn3.Caption:='读数初始化';
BitBtn5.Caption:='填写读数';
DBEdit4.BorderStyle:=bsNone;
DBEdit4.Color:=ClScrollBar;
DBEDit4.Enabled:=False;
DateTimePicker2.Enabled:=False;
Table3.Post;
Exit;
end;
end;
//--------------------------------------------------------
end;
end;
procedure TMInsert.BitBtn5Click(Sender: TObject);
begin
if Table3.RecordCount<>0 then
begin
//-------------------------------------------------------
if BitBtn5.Caption='填写读数' then
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -