contract_order.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit contract_order;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Mask, DBCtrls, DB, DBTables,
  Grids, DBGrids, ADODB;

type
  TForm_contract_order = class(TForm)
    PageControl1: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    DataSource1: TDataSource;
    ScrollBox: TScrollBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label79: TLabel;
    Label80: TLabel;
    Label83: TLabel;
    Label1: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label97: TLabel;
    Label78: TLabel;
    Label72: TLabel;
    EditDBEdit10: TDBEdit;
    EditDBEdit11: TDBEdit;
    EditDBEdit12: TDBEdit;
    EditDBEdit60: TDBEdit;
    EditDBEdit61: TDBEdit;
    EditDBEdit64: TDBEdit;
    GroupBox1: TGroupBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DataSource2: TDataSource;
    Query2: TQuery;
    GroupBox3: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    DBComboBox1: TDBComboBox;
    DBEdit6: TDBEdit;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit7: TDBEdit;
    DBComboBox2: TDBComboBox;
    Label17: TLabel;
    DBEdit8: TDBEdit;
    Label18: TLabel;
    Query3: TQuery;
    DataSource3: TDataSource;
    GroupBox2: TGroupBox;
    Label19: TLabel;
    DBEdit9: TDBEdit;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label111: TLabel;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    GroupBox4: TGroupBox;
    GroupBox8: TGroupBox;
    DBEdit16: TDBEdit;
    DBEdit50: TDBEdit;
    Panel3: 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;
    DBComboBox3: TDBComboBox;
    ScrollBox1: TScrollBox;
    DBGrid3: TDBGrid;
    DBEdit71: TDBEdit;
    DBGrid4: TDBGrid;
    GroupBox6: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox7: TGroupBox;
    DBGrid5: TDBGrid;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    DBComboBox7: TDBComboBox;
    DBEdit17: TDBEdit;
    Query1aaaa: TQuery;
    DataSource4: TDataSource;
    Query4: TQuery;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    DBGrid7: TDBGrid;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    Label27: TLabel;
    Label28: TLabel;
    Query1aaaaBDEDesigner2: TStringField;
    Query1aaaaBDEDesigner3: TStringField;
    Query1aaaaBDEDesigner4: TStringField;
    Query1aaaaBDEDesigner5: TStringField;
    Query1aaaaBDEDesigner6: TStringField;
    Query1aaaaBDEDesigner7: TStringField;
    Query1aaaaBDEDesigner8: TStringField;
    Query1aaaaBDEDesigner9: TStringField;
    Query1aaaaBDEDesigner10: TStringField;
    Query1aaaaBDEDesigner11: TStringField;
    Query1aaaaBDEDesigner12: TStringField;
    Query1aaaaBDEDesigner13: TStringField;
    Query1aaaaBDEDesigner14: TStringField;
    Query1aaaaBDEDesigner15: TFloatField;
    Query1aaaaBDEDesigner16: TStringField;
    Query1aaaaBDEDesigner17: TStringField;
    Query1aaaaBDEDesigner18: TFloatField;
    Query1aaaaBDEDesigner19: TStringField;
    Query1aaaaBDEDesigner20: TFloatField;
    Query1aaaaBDEDesigner21: TStringField;
    Query1aaaaBDEDesigner22: TStringField;
    Query1aaaa_: TStringField;
    Query1aaaa_2: TStringField;
    Query1aaaaBDEDesigner23: TFloatField;
    Query1aaaaBDEDesigner24: TStringField;
    Query1aaaa_3: TStringField;
    Query1aaaa_4: TStringField;
    Query1aaaa_5: TStringField;
    Query1aaaa_6: TStringField;
    Query1aaaa_7: TStringField;
    Query1aaaa_8: TStringField;
    Query1aaaa_9: TStringField;
    Query1aaaa_10: TStringField;
    Query1aaaa_11: TStringField;
    Query1aaaa_12: TFloatField;
    Query1aaaaBDEDesigner25: TFloatField;
    Query1aaaaBDEDesigner26: TFloatField;
    Query1aaaaBDEDesigner27: TDateTimeField;
    Query1aaaaBDEDesigner28: TStringField;
    Query1aaaaBDEDesigner29: TStringField;
    Query1aaaaBDEDesigner30: TDateTimeField;
    Query1aaaaBDEDesigner31: TStringField;
    Query1aaaaBDEDesigner32: TStringField;
    Query1aaaaBDEDesigner33: TStringField;
    Query1aaaa_13: TStringField;
    Query1aaaaBDEDesigner34: TStringField;
    Query1aaaa_14: TStringField;
    Query1aaaa_15: TStringField;
    Query1aaaa_16: TStringField;
    Query1aaaa_17: TStringField;
    Query1aaaa_18: TStringField;
    Query1aaaa_19: TStringField;
    Query1aaaaBDEDesigner35: TStringField;
    Query1aaaaBDEDesigner36: TStringField;
    Query1aaaaBDEDesigner37: TIntegerField;
    Query1aaaaBDEDesigner38: TDateTimeField;
    Query1aaaaBDEDesigner39: TFloatField;
    Query1aaaaBDEDesigner40: TStringField;
    Query1aaaaBDEDesigner41: TFloatField;
    Query1aaaaBDEDesigner42: TFloatField;
    Query1aaaaBDEDesigner43: TStringField;
    Query1aaaaBDEDesigner44: TStringField;
    Query1aaaaBDEDesigner45: TStringField;
    Query1aaaaBDEDesigner46: TMemoField;
    Query1aaaaBDEDesigner47: TFloatField;
    Query1aaaaBDEDesigner48: TStringField;
    Query1aaaaBDEDesigner49: TStringField;
    Query1aaaaBDEDesigner50: TMemoField;
    Query1aaaaBDEDesigner51: TStringField;
    Query1aaaaBDEDesigner52: TStringField;
    Query1aaaaBDEDesigner53: TStringField;
    Query1aaaaBDEDesigner54: TStringField;
    Query1aaaaBDEDesigner55: TStringField;
    Query1aaaaBDEDesigner56: TStringField;
    Query1aaaaBDEDesigner57: TStringField;
    Query1aaaaBDEDesigner58: TStringField;
    Query1aaaaBDEDesigner59: TStringField;
    Query1aaaaBDEDesigner60: TStringField;
    Query1aaaaBDEDesigner61: TStringField;
    Query1aaaaBDEDesigner62: TStringField;
    Query1aaaaBDEDesigner63: TStringField;
    Query1aaaaBDEDesigner64: TStringField;
    Query1aaaaBDEDesigner65: TStringField;
    Query1aaaaBDEDesigner66: TStringField;
    Query1aaaaBDEDesigner67: TStringField;
    Query1aaaaBDEDesigner68: TStringField;
    Query1aaaaBDEDesigner69: TDateTimeField;
    Query1aaaaBDEDesigner70: TDateTimeField;
    Query1aaaaBDEDesigner71: TDateTimeField;
    Query1aaaaBDEDesigner72: TIntegerField;
    Query1aaaaBDEDesigner73: TIntegerField;
    Query1aaaaBDEDesigner74: TDateTimeField;
    Query1aaaaBDEDesigner75: TIntegerField;
    Query1aaaaBDEDesigner76: TStringField;
    Query1aaaaBDEDesigner77: TStringField;
    Query1aaaaBDEDesigner78: TStringField;
    Query1aaaaBDEDesigner79: TStringField;
    Query1aaaaBDEDesigner80: TFloatField;
    Query1aaaaBDEDesigner81: TDateTimeField;
    Query1aaaaBDEDesigner82: TStringField;
    Query1aaaaBDEDesigner83: TStringField;
    Query1aaaaBDEDesigner84: TBooleanField;
    Query1aaaaBDEDesigner85: TMemoField;
    Query1aaaaBDEDesigner86: TMemoField;
    Query1aaaaBDEDesigner87: TDateTimeField;
    Query1aaaaBDEDesigner88: TMemoField;
    Query1aaaaBDEDesigner89: TBooleanField;
    Query1aaaaBDEDesigner90: TStringField;
    Query1aaaaBDEDesigner91: TFloatField;
    Query1aaaaBDEDesigner92: TFloatField;
    Query1: TADOQuery;
    Panel4: TPanel;
    Button8: TButton;
    Button10: TButton;
    Button9: TButton;
    Label29: TLabel;
    Panel1: 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;
    Query1DSDesigner: TStringField;
    Query1DSDesigner2: TAutoIncField;
    Query1DSDesigner3: TStringField;
    Query1DSDesigner4: TStringField;
    Query1DSDesigner5: TStringField;
    Query1DSDesigner6: TStringField;
    Query1DSDesigner7: TStringField;
    Query1DSDesigner8: TStringField;
    Query1DSDesigner9: TStringField;
    Query1DSDesigner10: TStringField;
    Query1DSDesigner11: TDateTimeField;
    Query1DSDesigner12: TStringField;
    Query1DSDesigner13: TStringField;
    Query1DSDesigner14: TStringField;
    Query1DSDesigner15: TStringField;
    Query1DSDesigner16: TStringField;
    Query1DSDesigner17: TBCDField;
    Query1DSDesigner18: TStringField;
    Query1DSDesigner19: TStringField;
    Query1DSDesigner20: TBCDField;
    Query1DSDesigner21: TStringField;
    Query1DSDesigner22: TBCDField;
    Query1DSDesigner23: TStringField;
    Query1DSDesigner24: TStringField;
    Query1_: TStringField;
    Query1_2: TStringField;
    Query1DSDesigner25: TBCDField;
    Query1DSDesigner26: 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;
    Query1DSDesigner27: TBCDField;
    Query1DSDesigner28: TBCDField;
    Query1DSDesigner29: TDateTimeField;
    Query1DSDesigner30: TStringField;
    Query1DSDesigner31: TStringField;
    Query1DSDesigner32: TDateTimeField;
    Query1DSDesigner33: TStringField;
    Query1DSDesigner34: TStringField;
    Query1DSDesigner35: TStringField;
    Query1_13: TStringField;
    Query1DSDesigner36: TStringField;
    Query1_14: TStringField;
    Query1_15: TStringField;
    Query1_16: TStringField;
    Query1_17: TStringField;
    Query1_18: TStringField;
    Query1_19: TStringField;
    Query1DSDesigner37: TStringField;
    Query1DSDesigner38: TStringField;
    Query1DSDesigner39: TIntegerField;
    Query1DSDesigner40: TDateTimeField;
    Query1DSDesigner41: TBCDField;
    Query1DSDesigner42: TStringField;
    Query1DSDesigner43: TBCDField;
    Query1DSDesigner44: TBCDField;
    Query1DSDesigner45: TStringField;
    Query1DSDesigner46: TStringField;
    Query1DSDesigner47: TStringField;
    Query1DSDesigner48: TMemoField;
    Query1DSDesigner49: TBCDField;
    Query1DSDesigner50: TStringField;
    Query1DSDesigner51: TStringField;
    Query1DSDesigner52: TMemoField;
    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: TStringField;
    Query1DSDesigner71: TDateTimeField;
    Query1DSDesigner72: TDateTimeField;
    Query1DSDesigner73: TDateTimeField;
    Query1DSDesigner74: TIntegerField;
    Query1DSDesigner75: TIntegerField;
    Query1DSDesigner76: TDateTimeField;
    Query1DSDesigner77: TIntegerField;
    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;
    DBRadioGroup1: TDBRadioGroup;
    Panel5: TPanel;
    Label95: TLabel;
    DBComboBox4: TDBComboBox;
    DBComboBox8: TDBComboBox;
    Button11: TButton;
    Button12: TButton;