mainform1.~pas

管理

{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
{$WARN SYMBOL_DEPRECATED ON}
{$WARN SYMBOL_LIBRARY ON}
{$WARN SYMBOL_PLATFORM ON}
{$WARN UNIT_LIBRARY ON}
{$WARN UNIT_PLATFORM ON}
{$WARN UNIT_DEPRECATED ON}
{$WARN HRESULT_COMPAT ON}
{$WARN HIDING_MEMBER ON}
{$WARN HIDDEN_VIRTUAL ON}
{$WARN GARBAGE ON}
{$WARN BOUNDS_ERROR ON}
{$WARN ZERO_NIL_COMPAT ON}
{$WARN STRING_CONST_TRUNCED ON}
{$WARN FOR_LOOP_VAR_VARPAR ON}
{$WARN TYPED_CONST_VARPAR ON}
{$WARN ASG_TO_TYPED_CONST ON}
{$WARN CASE_LABEL_RANGE ON}
{$WARN FOR_VARIABLE ON}
{$WARN CONSTRUCTING_ABSTRACT ON}
{$WARN COMPARISON_FALSE ON}
{$WARN COMPARISON_TRUE ON}
{$WARN COMPARING_SIGNED_UNSIGNED ON}
{$WARN COMBINING_SIGNED_UNSIGNED ON}
{$WARN UNSUPPORTED_CONSTRUCT ON}
{$WARN FILE_OPEN ON}
{$WARN FILE_OPEN_UNITSRC ON}
{$WARN BAD_GLOBAL_SYMBOL ON}
{$WARN DUPLICATE_CTOR_DTOR ON}
{$WARN INVALID_DIRECTIVE ON}
{$WARN PACKAGE_NO_LINK ON}
{$WARN PACKAGED_THREADVAR ON}
{$WARN IMPLICIT_IMPORT ON}
{$WARN HPPEMIT_IGNORED ON}
{$WARN NO_RETVAL ON}
{$WARN USE_BEFORE_DEF ON}
{$WARN FOR_LOOP_VAR_UNDEF ON}
{$WARN UNIT_NAME_MISMATCH ON}
{$WARN NO_CFG_FILE_FOUND ON}
{$WARN MESSAGE_DIRECTIVE ON}
{$WARN IMPLICIT_VARIANTS ON}
{$WARN UNICODE_TO_LOCALE ON}
{$WARN LOCALE_TO_UNICODE ON}
{$WARN IMAGEBASE_MULTIPLE ON}
{$WARN SUSPICIOUS_TYPECAST ON}
{$WARN PRIVATE_PROPACCESSOR ON}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_CAST OFF}
unit MainForm1;

interface

uses
  WMCostomMainForm,WMFindForm,EditForm1,DATEUTILS,WmComputerForm,IniFiles,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, ToolWin, Menus, ActnList, ExtCtrls, cxStyles,
  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
  cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
  StdCtrls, Buttons,ShellApi, ADODB, dxDockPanel, dxDockControl;

type
  TMainForm = class(TWMCostomMainForm)
    MainMenu1: TMainMenu;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    Action7: TAction;
    F1: TMenuItem;
    x1: TMenuItem;
    H1: TMenuItem;
    O1: TMenuItem;
    P1: TMenuItem;
    Q1: TMenuItem;
    N1: TMenuItem;
    E1: TMenuItem;
    N2: TMenuItem;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    Action8: TAction;
    N3: TMenuItem;
    N4: TMenuItem;
    Timer1: TTimer;
    Panel1: TPanel;
    cxStyleRepository1: TcxStyleRepository;
    cxGridTableViewStyleSheet1: TcxGridTableViewStyleSheet;
    Panel2: TPanel;
    Label1: TLabel;
    Bevel1: TBevel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Action9: TAction;
    N5: TMenuItem;
    D2: TMenuItem;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    ADOConnection1: TADOConnection;
    doRecord: TDataSource;
    cxStyle2: TcxStyle;
    adoRecord: TADODataSet;
    Action10: TAction;
    N6: TMenuItem;
    N7: TMenuItem;
    Action11: TAction;
    N8: TMenuItem;
    N10: TMenuItem;
    Action13: TAction;
    N11: TMenuItem;
    PopupMenu1: TPopupMenu;
    P2: TMenuItem;
    E2: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    Action12: TAction;
    Action14: TAction;
    Action15: TAction;
    Action16: TAction;
    Action17: TAction;
    Action18: TAction;
    Action19: TAction;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    F2: TMenuItem;
    N27: TMenuItem;
    O2: TMenuItem;
    Action20: TAction;
    Action21: TAction;
    Action22: TAction;
    N28: TMenuItem;
    N9: TMenuItem;
    Action23: TAction;
    IDI1: TMenuItem;
    IDI2: TMenuItem;
    dxDockPanel1: TdxDockPanel;
    dxFloatDockSite1: TdxFloatDockSite;
    Action24: TAction;
    Action25: TAction;
    adoRecordAutoID: TAutoIncField;
    adoRecordVeriety: TStringField;
    adoRecordPrice: TIntegerField;
    adoRecordNumber: TIntegerField;
    adoRecordSumprice: TIntegerField;
    adoRecordDayincome: TIntegerField;
    adoRecordDayPayout: TIntegerField;
    adoRecordSumMonth: TIntegerField;
    adoRecordSumYear: TIntegerField;
    adoRecordMoneykind: TStringField;
    adoRecordEnterTime: TStringField;
    adoRecordRemark: TStringField;
    cxGrid1DBTableView1AutoID: TcxGridDBColumn;
    cxGrid1DBTableView1EnterTime: TcxGridDBColumn;
    cxGrid1DBTableView1Veriety: TcxGridDBColumn;
    cxGrid1DBTableView1Price: TcxGridDBColumn;
    cxGrid1DBTableView1Number: TcxGridDBColumn;
    cxGrid1DBTableView1Sumprice: TcxGridDBColumn;
    cxGrid1DBTableView1Dayincome: TcxGridDBColumn;
    cxGrid1DBTableView1DayPayout: TcxGridDBColumn;
    cxGrid1DBTableView1SumMonth: TcxGridDBColumn;
    cxGrid1DBTableView1SumYear: TcxGridDBColumn;
    cxGrid1DBTableView1Moneykind: TcxGridDBColumn;
    cxGrid1DBTableView1Remark: TcxGridDBColumn;
    Action26: TAction;
    N29: TMenuItem;
    A1: TMenuItem;
    Action27: TAction;
    N30: TMenuItem;
    Action28: TAction;
    N31: TMenuItem;
    cxStyle1: TcxStyle;
    procedure Action3Execute(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Action8Execute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Action9Execute(Sender: TObject);
    procedure Action6Execute(Sender: TObject);
    procedure Panel1DblClick(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure Action10Execute(Sender: TObject);
    procedure Action11Execute(Sender: TObject);
    procedure Action13Execute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Action12Execute(Sender: TObject);
    procedure Action14Execute(Sender: TObject);
    procedure Action15Execute(Sender: TObject);
    procedure Action16Execute(Sender: TObject);
    procedure Action17Execute(Sender: TObject);
    procedure Action23Execute(Sender: TObject);
    procedure Action18Execute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure Action26Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action7Execute(Sender: TObject);
    procedure Action27Execute(Sender: TObject);
    procedure Action28Execute(Sender: TObject);
  private
    { Private declarations }
    procedure AInputQuery(ACaption, AMessage, AFieldName: String);
  public
    { Public declarations }
    procedure AIniWindows;Override;
    Procedure AConnectSQL;
    Procedure OLEDateAccess;
  end;

var
  MainForm: TMainForm;

implementation

uses WMLandForm1, WMwindowsForm, WMHelpForm1, WMTimesumForm1, WMweForm1;

{$R *.dfm}

procedure TMainForm.Action3Execute(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[3].Text := FormatDateTime('yyyy-mm-dd',Now);
  StatusBar1.Panels[5].Text := FormatDateTime('hh:mm:ss     dddd',Now);
End;

procedure TMainForm.Action8Execute(Sender: TObject);
begin
  Winexec('notepad.exe',SW_SHow);
end;

procedure TMainForm.SpeedButton1Click(Sender: TObject);
Var
  AStr: String;
begin
  AStr := Edit1.Text;
  Shellexecute(Handle,Nil,PChar(AStr),Nil,Nil,SW_Show);
  {Winexec(PChar(AStr),SW_SHow) }
end;

procedure TMainForm.Action9Execute(Sender: TObject);
begin
  if Panel2.Visible= True then
    begin
      Panel2.Visible:=false;
      Panel1.Top := 42;
      Panel1.Left:= 3;
    end
    else begin
      Panel2.Visible:= true;
      Panel1.Top := 67;
      Panel1.Left:= 2;
    end;

end;

procedure TMainForm.Action6Execute(Sender: TObject);
begin
  adoRecord.Delete;