main.pas

本程序设计的是一个小型商店每天记的流水帐管理程序

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Menus, DBActns, ActnList, DB, 
  ExtCtrls, StdCtrls, Mask, DBCtrls, ImgList, Buttons, Grids, DBGrids,
  XPMenu;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    StatusBar1: TStatusBar;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet5: TTabSheet;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    DataSource1: TDataSource;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ImageList1: TImageList;
    BitBtn5: TBitBtn;
    BitBtn10: TBitBtn;
    Label25: TLabel;
    Label26: TLabel;
    Panel4: TPanel;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    Panel8: TPanel;
    DBGrid1: TDBGrid;
    Panel9: TPanel;
    Label27: TLabel;
    ComboBox1: TComboBox;
    Label28: TLabel;
    Edit1: TEdit;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    Panel13: TPanel;
    DBGrid3: TDBGrid;
    Panel14: TPanel;
    Label59: TLabel;
    Label60: TLabel;
    ComboBox3: TComboBox;
    Edit3: TEdit;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn21: TBitBtn;
    Timer1: TTimer;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    Panel5: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit12: TDBEdit;
    TabSheet4: TTabSheet;
    Panel6: TPanel;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    DBGrid2: TDBGrid;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBNavigator1: TDBNavigator;
    Label15: TLabel;
    Label16: TLabel;
    DataSource2: TDataSource;
    XPMenu1: TXPMenu;
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure BitBtn5MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure filldata(sender:tcombobox);
    procedure search(f1:tcombobox;t1:tedit);
    procedure dispall;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);

    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn11MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn18Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation
  uses  about,dm,report,login;
{$R *.dfm}

procedure TForm1.N9Click(Sender: TObject);
begin
   tabsheet2.Show;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
   tabsheet3.Show;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
    tabsheet5.Show;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
    tabsheet1.Show;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
   application.Terminate ;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
   with taboutbox.Create(self) do
   ShowModal ;
end;

procedure TForm1.BitBtn5MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   dbedit1.Text:=inttostr(dm2.adoquery1.RecordCount+1);
   dbedit2.SetFocus;
end;

procedure TForm1.filldata(sender:tcombobox);
var
  iCount: Integer;       //将从数据模块中取得的数据库表的字段名填入ComboBox中
begin
  sender.Items.Clear;    //首先清空ComboBox中Items的值
  for iCount := 0 to DM2.ADOQuery1.Fields.Count - 2 do
  begin
    sender.Items.Add(DM2.ADOQuery1.Fields[iCount].FieldName);   //加入字段名
    DM2.ADOQuery1.Next;                   //向下移动到下一个字段
  end;
  sender.ItemIndex := 0;            //设置表单刚出现时ComboBox的值为第一个
end;

procedure TForm1.search(f1:tcombobox;t1:tedit);       //自定义过程search(在数据库中搜寻指定条件的数据)
var
  SearchField: string;       //要查找的字段名
  SearchValue: string;       //要查找的字段值
begin
  SearchField := Trim(f1.Text);           //将ComboBox的值赋给SearchField
  SearchValue := '%' + Trim(t1.Text) + '%';   //将Edit的值赋给SearchField
    with DM2.ADOQuery1 do
    begin
      close;       //先关闭数据模块中的ADOQuery
      sql.Clear;   //清空ADOQuery中的SQL值
      sql.Add('select * from xmb where ' + SearchField + ' like ''' +
        SearchValue + '''');  //进行数据查询的SQL语句（SearchFidel和SearchValue
                              // 分别赋到SQL语句中
    end;

      Dm2.ADOQuery1.Open;     //打开数据模块中的ADOQuery
end;

procedure TForm1.FormActivate(Sender: TObject);
begin

   filldata(combobox1);
   filldata(combobox3);
   tabsheet1.Show;
end;

procedure TForm1.BitBtn14Click(Sender: TObject);
begin
    search(combobox1,edit1);

end;

procedure TForm1.BitBtn15Click(Sender: TObject);
begin
  dispall;
end;

procedure TForm1.dispall;
begin
  with dm2.ADOQuery1 do
    begin
      close;
      sql.clear;
      sql.Add('select * from xmb');
      open;
    end;
end;

procedure TForm1.BitBtn13Click(Sender: TObject);
begin
   if MessageDlg('你确信要删除记录?',mtwarning,[mbok,mbcancel],0)=mrok
  then
    DM2.ADOQuery1.Delete;
end;

procedure TForm1.BitBtn17Click(Sender: TObject);
begin
   dispall;
end;

procedure TForm1.BitBtn21Click(Sender: TObject);
begin
    with tqr1.Create(self) do
     Preview;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   statusbar1.Panels[3].Text :=timetostr(now);
   statusbar1.Panels[4].Text :=formatdatetime('yyyy年MM月dd日',now);
end;

procedure TForm1.BitBtn11MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    dbedit12.SetFocus;
end;

procedure TForm1.BitBtn18Click(Sender: TObject);
begin
    search(combobox3,edit3);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   with dm2.ADOQuery1 do
     begin
       close;
       sql.Clear;
       sql.Add('delete * from xmb');
       ExecSQL;
       close;
       sql.Clear;
       sql.Add('select * from xmb');
       open;

     end;


end;

end.