unit1.pas

中鼎百货进销存系统

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, ExtCtrls, TabNotBk, DB,
 ADODB, Mask, DBCtrls,ComObj,Excel97,math,unit2,IniFiles,unit4,Unit5,IdGlobal,unit7;

type
  TForm1 = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label7: TLabel;
    GroupBox1: TGroupBox;
    Label9: TLabel;
    Edit4: TEdit;
    Label10: TLabel;
    Edit5: TEdit;
    DBGrid4: TDBGrid;
    GroupBox4: TGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    GroupBox5: TGroupBox;
    Button10: TButton;
    Button12: TButton;
    Button14: TButton;
    Label8: TLabel;
    Label12: TLabel;
    ADO_Cus: TADOQuery;
    conn: TADOConnection;
    DataSource1: TDataSource;
    ADO_Input: TADOQuery;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    ComboBox2: TComboBox;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label5: TLabel;
    ComboBox3: TComboBox;
    Label6: TLabel;
    Edit1: TEdit;
    Label13: TLabel;
    ComboBox4: TComboBox;
    Label14: TLabel;
    ComboBox5: TComboBox;
    Label15: TLabel;
    ComboBox6: TComboBox;
    Button18: TButton;
    Button19: TButton;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    Button20: TButton;
    GroupBox7: TGroupBox;
    Label17: TLabel;
    Edit6: TEdit;
    ListBox2: TListBox;
    Button23: TButton;
    Button24: TButton;
    GroupBox8: TGroupBox;
    Label18: TLabel;
    Edit7: TEdit;
    ListBox3: TListBox;
    Button26: TButton;
    Button27: TButton;
    DBEdit2: TDBEdit;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    GroupBox9: TGroupBox;
    Edit8: TEdit;
    Label29: TLabel;
    Label30: TLabel;
    Edit9: TEdit;
    Label31: TLabel;
    Edit10: TEdit;
    Label32: TLabel;
    Edit11: TEdit;
    Button25: TButton;
    Button28: TButton;
    GroupBox10: TGroupBox;
    Edit12: TEdit;
    Label33: TLabel;
    Label34: TLabel;
    Edit13: TEdit;
    Label35: TLabel;
    Edit14: TEdit;
    Edit15: TEdit;
    Label36: TLabel;
    Label37: TLabel;
    Edit16: TEdit;
    Button29: TButton;
    Button30: TButton;
    GroupBox11: TGroupBox;
    Label38: TLabel;
    Edit17: TEdit;
    Label39: TLabel;
    Edit18: TEdit;
    Button31: TButton;
    Button32: TButton;
    DBEdit3: TDBEdit;
    DS_input: TDataSource;
    ADO_InShow: TADOQuery;
    Button33: TButton;
    DBGrid3: TDBGrid;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    ComboBox8: TComboBox;
    ComboBox9: TComboBox;
    ComboBox10: TComboBox;
    ComboBox11: TComboBox;
    ComboBox13: TComboBox;
    ComboBox14: TComboBox;
    Edit19: TEdit;
    Edit20: TEdit;
    DateTimePicker2: TDateTimePicker;
    ComboBox15: TComboBox;
    DS_Output: TDataSource;
    ADO_Output: TADOQuery;
    ADO_Out_Temp: TADOQuery;
    Button34: TButton;
    Button35: TButton;
    DBEdit4: TDBEdit;
    DBGrid5: TDBGrid;
    DS_Print: TDataSource;
    Button36: TButton;
    ADO_Print: TADOQuery;
    Label51: TLabel;
    Label53: TLabel;
    Label52: TLabel;
    ComboBox16: TComboBox;
    Label54: TLabel;
    ComboBox17: TComboBox;
    DBEdit5: TDBEdit;
    DBGrid7: TDBGrid;
    GroupBox13: TGroupBox;
    GroupBox15: TGroupBox;
    Label61: TLabel;
    Label62: TLabel;
    ComboBox21: TComboBox;
    Edit24: TEdit;
    Button39: TButton;
    Button40: TButton;
    DataSource3: TDataSource;
    ADO_Fee: TADOQuery;
    Button41: TButton;
    Button42: TButton;
    Label63: TLabel;
    Edit21: TEdit;
    Label64: TLabel;
    Edit23: TEdit;
    ADO_User: TADOQuery;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit1: TEdit;
    DBeditG_M: TEdit;
    DBedit_Rela: TEdit;
    DBCom_Type: TComboBox;
    DBCom_Area: TComboBox;
    DBedit_Name: TEdit;
    DBEdit_Addr: TEdit;
    DBEdit_Tele: TEdit;
    DBEdit_mp: TEdit;
    DBCom_Sale: TComboBox;
    DBEdit_fax: TEdit;
    DBEdit_Mail: TEdit;
    GroupBox16: TGroupBox;
    GroupBox17: TGroupBox;
    Label65: TLabel;
    Edit25: TEdit;
    ListBox4: TListBox;
    Button43: TButton;
    Button44: TButton;
    Label66: TLabel;
    Edit26: TEdit;
    ListBox5: TListBox;
    Button45: TButton;
    Button46: TButton;
    Edit3: TEdit;
    Label2: TLabel;
    Edit22: TEdit;
    Label11: TLabel;
    DateTimePicker3: TDateTimePicker;
    DBEdit8: TDBEdit;
    Label16: TLabel;
    Edit27: TEdit;
    Label43: TLabel;
    Edit28: TEdit;
    tiaoma: TEdit;
    khdz: TEdit;
    fzr: TEdit;
    dh: TEdit;
    Label55: TLabel;
    Edit29: TEdit;
    Label56: TLabel;
    DBGrid6: TDBGrid;
    DScancel: TDataSource;
    ADO_cancel: TADOQuery;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    Label69: TLabel;
    Label70: TLabel;
    Label71: TLabel;
    Label72: TLabel;
    ComboBox1: TComboBox;
    Label73: TLabel;
    Label74: TLabel;
    Label75: TLabel;
    Edit30: TEdit;
    ComboBox7: TComboBox;
    ComboBox12: TComboBox;
    ComboBox18: TComboBox;
    ComboBox20: TComboBox;
    Edit31: TEdit;
    Edit32: TEdit;
    Edit33: TEdit;
    Edit34: TEdit;
    DateTimePicker4: TDateTimePicker;
    ComboBox22: TComboBox;
    GroupBox6: TGroupBox;
    Button13: TButton;
    Button21: TButton;
    Edit35: TEdit;
    ADO_Cancel_Show: TADOQuery;
    Button37: TButton;
    DBEdit9: TDBEdit;
    TabbedNotebook2: TTabbedNotebook;
    GroupBox12: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox14: TGroupBox;
    CheckBox4: TCheckBox;
    ComboBox19: TComboBox;
    CheckBox2: TCheckBox;
    ComboBox23: TComboBox;
    CheckBox3: TCheckBox;
    ComboBox24: TComboBox;
    GroupBox18: TGroupBox;
    CheckBox5: TCheckBox;
    ComboBox25: TComboBox;
    CheckBox6: TCheckBox;
    ComboBox26: TComboBox;
    CheckBox7: TCheckBox;
    ComboBox27: TComboBox;
    CheckBox8: TCheckBox;
    ComboBox28: TComboBox;
    GroupBox19: TGroupBox;
    CheckBox1: TCheckBox;
    ComboBox29: TComboBox;
    CheckBox9: TCheckBox;
    ComboBox30: TComboBox;
    CheckBox10: TCheckBox;
    ComboBox31: TComboBox;
    CheckBox11: TCheckBox;
    ComboBox32: TComboBox;
    DBGrid8: TDBGrid;
    Label76: TLabel;
    DateTimePicker5: TDateTimePicker;
    Label77: TLabel;
    DateTimePicker6: TDateTimePicker;
    Button38: TButton;
    ADO_Query_CK: TADOQuery;
    DS_Query_CK: TDataSource;
    ADO_Query_CK_Show: TADOQuery;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    ComboBox33: TComboBox;
    ComboBox34: TComboBox;
    ComboBox35: TComboBox;
    Button47: TButton;
    DBGrid9: TDBGrid;
    ADO_KC: TADOQuery;
    DS_KC: TDataSource;
    Button11: TButton;
    Button22: TButton;
    Button48: TButton;
    Button49: TButton;
    Button50: TButton;
    Button51: TButton;
    Button52: TButton;
    ADO_Check11: TADOQuery;
    Button53: TButton;
    Label78: TLabel;
    ComboBox36: TComboBox;
    Label79: TLabel;
    Edit36: TEdit;
    Label80: TLabel;
    RadioButton4: TRadioButton;
    GroupBox20: TGroupBox;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    procedure Button5Click(Sender: TObject);
    function  ConnectDataBase():boolean;
    procedure FormCreate(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure TabbedNotebook1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure ExportDBGrid(toExcel: Boolean);
    procedure ExportDBGrid1(toExcel: Boolean);
    function  DBGridRecordSize(mColumn: TColumn): Boolean;
    function  DBGridAutoSize(mDBGrid: TDBGrid; mOffset: Integer = 5): Boolean;
    procedure DBGrid4DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure Button14Click(Sender: TObject);
    procedure ChangeDbGridColColor(ojbDbGrid:TDbGrid);
    procedure DBGrid4DblClick(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure ComboBox4Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure ComboBox8Change(Sender: TObject);
    procedure ComboBox8Click(Sender: TObject);
    procedure ComboBox10Click(Sender: TObject);
    procedure ComboBox11Click(Sender: TObject);
    procedure ComboBox13Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
    procedure Button35Click(Sender: TObject);
    procedure ComboBox16Click(Sender: TObject);
    procedure ComboBox17Click(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure DBGrid5CellClick(Column: TColumn);
    procedure Button39Click(Sender: TObject);
    procedure Edit24Exit(Sender: TObject);
    procedure Button36Click(Sender: TObject);
    procedure Button41Click(Sender: TObject);
    procedure Button42Click(Sender: TObject);
    procedure DBGrid5DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
     function RMBChange(i:Currency):string;
    procedure Button43Click(Sender: TObject);
    procedure Button45Click(Sender: TObject);
    procedure Button44Click(Sender: TObject);
    procedure Button46Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button40Click(Sender: TObject);
    Procedure AddNilRecord(cur_record:integer);
    procedure Edit17Exit(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox7Click(Sender: TObject);
    procedure ComboBox12Click(Sender: TObject);
    procedure ComboBox18Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Edit32Exit(Sender: TObject);
    procedure Edit33Exit(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button37Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button38Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure ComboBox19Click(Sender: TObject);
    procedure ComboBox24Click(Sender: TObject);