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 其它費(fèi)用表');
             Query2.SQL.Add('Where 收費(fèi)編號(hào)=:A');
             Query2.ParamByName('A').AsString:=Table2.FieldByName('房間編號(hào)').AsString;
             Query2.Open;
        end;
     if Table2.RecordCount<>0 then
        begin
             Query3.Close;
             Query3.SQL.Clear;
             Query3.SQL.Add('Select * From 常用費(fèi)用');
             Query3.SQL.Add('Where 收費(fèi)編號(hào)=:A');
             Query3.ParamByName('A').AsString:=Table2.FieldByName('房間編號(hào)').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:='填寫讀數(shù)';
             BitBtn3.Caption:='讀數(shù)初始化';
             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='讀數(shù)初始化' then
        begin
             BitBtn3.Caption:='保存讀數(shù)';
             BitBtn5.Caption:='取消讀數(shù)';
             DBEdit4.BorderStyle:=bsSingle;
             DBEdit4.Color:=clWhite;
             DBEdit4.Enabled:=True;
             Table3.Edit;
             DBEdit4.SetFocus;
             Exit;
        end;
     if BitBtn3.Caption='保存讀數(shù)' then
        begin
             if Length(Table3.FieldByName('上月讀數(shù)').AsString)=0 then
                ShowMessage('請(qǐng)輸入上月讀數(shù).')
             else
                begin
                     BitBtn3.Caption:='讀數(shù)初始化';
                     BitBtn5.Caption:='填寫讀數(shù)';
                     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='填寫讀數(shù)' then
        begin