main.pas

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, DB, DBTables, Grids,
  DBGrids, DBCtrls, Mask, RpRave, RpBase, RpSystem, RpDefine, RpCon,
  RpConDS, RpConBDE,RVClass, RVProj, RVCsStd;

type
  TMainFrm = class(TForm)
    TreeView1: TTreeView;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    TabSheet12: TTabSheet;
    TabSheet13: TTabSheet;
    TabSheet14: TTabSheet;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    TabSheet0: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Database1: TDatabase;
    Table1: TTable;
    BitBtn17: TBitBtn;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Edit3: TEdit;
    Edit1: TEdit;
    Label11: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Edit6: TEdit;
    Edit4: TEdit;
    Edit2: TEdit;
    Edit8: TEdit;
    BitBtn1: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    ComboBox1: TComboBox;
    Label10: TLabel;
    Edit5: TEdit;
    Edit7: TEdit;
    Label12: TLabel;
    Edit9: TEdit;
    Label14: TLabel;
    Edit10: TEdit;
    Label15: TLabel;
    Edit11: TEdit;
    Label16: TLabel;
    Edit12: TEdit;
    Label17: TLabel;
    Edit14: TEdit;
    Label19: TLabel;
    BitBtn15: TBitBtn;
    Label18: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Edit13: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    BitBtn16: TBitBtn;
    Label22: TLabel;
    ComboBox2: TComboBox;
    Table2: TTable;
    DataSource1: TDataSource;
    GroupBox3: TGroupBox;
    BitBtn23: TBitBtn;
    BitBtn22: TBitBtn;
    DBNavigator2: TDBNavigator;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label25: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label33: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    ComboBox4: TComboBox;
    PageControl2: TPageControl;
    TabSheet15: TTabSheet;
    TabSheet16: TTabSheet;
    Label24: TLabel;
    ComboBox3: TComboBox;
    Edit17: TEdit;
    Label27: TLabel;
    Label23: TLabel;
    DateTimePicker2: TDateTimePicker;
    BitBtn18: TBitBtn;
    BitBtn6: TBitBtn;
    Edit19: TEdit;
    Edit18: TEdit;
    Edit20: TEdit;
    Label26: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    DateTimePicker3: TDateTimePicker;
    Label32: TLabel;
    DBEdit1: TDBEdit;
    Label34: TLabel;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    GroupBox1: TGroupBox;
    Label37: TLabel;
    Label38: TLabel;
    Edit21: TEdit;
    Edit22: TEdit;
    Label39: TLabel;
    Label40: TLabel;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Label41: TLabel;
    DateTimePicker4: TDateTimePicker;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    ComboBox6: TComboBox;
    BitBtn4: TBitBtn;
    BitBtn21: TBitBtn;
    Label45: TLabel;
    Edit27: TEdit;
    ComboBox5: TComboBox;
    Label46: TLabel;
    Label47: TLabel;
    Edit28: TEdit;
    Table3: TTable;
    DataSource3: TDataSource;
    DBNavigator3: TDBNavigator;
    DBGrid3: TDBGrid;
    Table4: TTable;
    GroupBox2: TGroupBox;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label53: TLabel;
    Label58: TLabel;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit33: TEdit;
    DateTimePicker5: TDateTimePicker;
    ComboBox7: TComboBox;
    BitBtn8: TBitBtn;
    BitBtn24: TBitBtn;
    Edit36: TEdit;
    DateTimePicker6: TDateTimePicker;
    Label59: TLabel;
    TabSheet17: TTabSheet;
    TabSheet18: TTabSheet;
    Label52: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Table5: TTable;
    DataSource4: TDataSource;
    DBNavigator4: TDBNavigator;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DateTimePicker7: TDateTimePicker;
    DBNavigator5: TDBNavigator;
    DBEdit12: TDBEdit;
    Label60: TLabel;
    Label61: TLabel;
    DBEdit13: TDBEdit;
    Label62: TLabel;
    DBEdit14: TDBEdit;
    Label63: TLabel;
    Label64: TLabel;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    Table6: TTable;
    DataSource5: TDataSource;
    PageControl3: TPageControl;
    TabSheet19: TTabSheet;
    TabSheet20: TTabSheet;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    BitBtn10: TBitBtn;
    BitBtn25: TBitBtn;
    Label68: TLabel;
    Label69: TLabel;
    ComboBox8: TComboBox;
    ComboBox9: TComboBox;
    Edit31: TEdit;
    Edit32: TEdit;
    Edit34: TEdit;
    Label70: TLabel;
    Edit35: TEdit;
    Label71: TLabel;
    Edit37: TEdit;
    BitBtn26: TBitBtn;
    Table7: TTable;
    DataSource6: TDataSource;
    DBNavigator6: TDBNavigator;
    DBGrid4: TDBGrid;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DateTimePicker8: TDateTimePicker;
    Label72: TLabel;
    Label73: TLabel;
    Table8: TTable;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    Table9: TTable;
    DBNavigator7: TDBNavigator;
    DBGrid6: TDBGrid;
    DBNavigator8: TDBNavigator;
    BitBtn27: TBitBtn;
    Label74: TLabel;
    Label75: TLabel;
    Label76: TLabel;
    DBEdit19: TDBEdit;
    DateTimePicker9: TDateTimePicker;
    DateTimePicker10: TDateTimePicker;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DateTimePicker11: TDateTimePicker;
    DBGrid5: TDBGrid;
    Label77: TLabel;
    DBEdit22: TDBEdit;
    DateTimePicker12: TDateTimePicker;
    Label78: TLabel;
    DBEdit23: TDBEdit;
    DateTimePicker13: TDateTimePicker;
    Label79: TLabel;
    DBEdit24: TDBEdit;
    DateTimePicker14: TDateTimePicker;
    GroupBox4: TGroupBox;
    BitBtn12: TBitBtn;
    DBGrid7: TDBGrid;
    Query1: TQuery;
    DataSource9: TDataSource;
    BitBtn28: TBitBtn;
    ComboBox10: TComboBox;
    RvQueryConnection1: TRvQueryConnection;
    RvSystem1: TRvSystem;
    RvProject1: TRvProject;
    GroupBox5: TGroupBox;
    ComboBox11: TComboBox;
    BitBtn9: TBitBtn;
    BitBtn29: TBitBtn;
    BitBtn30: TBitBtn;
    DBGrid8: TDBGrid;
    BitBtn31: TBitBtn;
    BitBtn32: TBitBtn;
    BitBtn33: TBitBtn;
    GroupBox6: TGroupBox;
    ComboBox12: TComboBox;
    ComboBox13: TComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBGrid9: TDBGrid;
    Table10: TTable;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit4Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn23Click(Sender: TObject); 
    procedure BitBtn4Click(Sender: TObject);
    procedure ComboBox7Change(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure DateTimePicker7Change(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure ComboBox8Change(Sender: TObject);
    procedure ComboBox9Change(Sender: TObject);
    procedure BitBtn26Click(Sender: TObject);
    procedure DateTimePicker8Change(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure DateTimePicker9Change(Sender: TObject);
    procedure DateTimePicker10Change(Sender: TObject);
    procedure DateTimePicker11Change(Sender: TObject);
    procedure DateTimePicker12Change(Sender: TObject);
    procedure DateTimePicker13Change(Sender: TObject);
    procedure DateTimePicker14Change(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn28Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn29Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn31Click(Sender: TObject);
    procedure BitBtn32Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation

uses Login;

{$R *.dfm}  

procedure TMainFrm.Timer1Timer(Sender: TObject);
begin
  Label2.Caption:=FormatDateTime('dddddd ddd',date);
end;

procedure TMainFrm.FormCreate(Sender: TObject);
begin
  PageControl1.ActivePage:=TabSheet0;
end;

procedure TMainFrm.BitBtn3Click(Sender: TObject);
begin
  PageControl1.ActivePage:=TabSheet0;
end;

procedure TMainFrm.BitBtn17Click(Sender: TObject);
begin
 PageControl1.ActivePage:=TabSheet0;
end;

procedure TMainFrm.BitBtn1Click(Sender: TObject);
begin
 with Table1 do
   begin
    last;
    append;
    fieldvalues['AssetName']:=Edit1.Text;
    fieldvalues['AssetSpec']:=Edit3.Text;
    fieldvalues['BuyDate']:=DatetoStr(DateTimePicker1.Date);
    fieldvalues['FixedYear']:=ComboBox1.Text;
    fieldvalues['Quantity']:=Edit8.Text;
    fieldvalues['Price']:=Edit2.Text;