unit4.pas

来自「玉龙飞雪进销存管理系统,可以帮您管理进销存的软件」· PAS 代码 · 共 712 行 · 第 1/2 页

unit Unit4;

interface

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

type
  TFormcha = class(TForm)
    GroupBox1: TGroupBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    Label7: TLabel;
    Edit3: TEdit;
    CheckBox2: TCheckBox;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    Query1: TQuery;
    Label5: TLabel;
    Edit2: TEdit;
    Query1BDEDesigner: TIntegerField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TDateField;
    Query1BDEDesigner5: TFloatField;
    Query1BDEDesigner6: TFloatField;
    Query1BDEDesigner7: TCurrencyField;
    Query1BDEDesigner8: TStringField;
    Query1BDEDesigner9: TCurrencyField;
    Query1BDEDesigner10: TMemoField;
    Query1Field: TCurrencyField;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Panel3: TPanel;
    Label2: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    Edit4: TEdit;
    ComboBox2: TComboBox;
    DateTimePicker2: TDateTimePicker;
    DBGrid2: TDBGrid;
    Panel4: TPanel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    DBNavigator2: TDBNavigator;
    Query2: TQuery;
    DataSource2: TDataSource;
    Query2BDEDesigner: TIntegerField;
    Query2BDEDesigner2: TStringField;
    Query2BDEDesigner3: TStringField;
    Query2BDEDesigner4: TDateField;
    Query2BDEDesigner6: TFloatField;
    Query2BDEDesigner7: TFloatField;
    Query2BDEDesigner8: TCurrencyField;
    Query2BDEDesigner9: TStringField;
    Query2BDEDesigner10: TCurrencyField;
    Query2BDEDesigner11: TMemoField;
    Query2Field: TCurrencyField;
    Panel5: TPanel;
    Label3: TLabel;
    Edit5: TEdit;
    Label9: TLabel;
    DateTimePicker3: TDateTimePicker;
    Label11: TLabel;
    Edit7: TEdit;
    DBGrid3: TDBGrid;
    Panel6: TPanel;
    SpeedButton9: TSpeedButton;
    DBNavigator3: TDBNavigator;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    DataSource3: TDataSource;
    Query3: TQuery;
    CheckBox3: TCheckBox;
    ComboBox3: TComboBox;
    TabSheet6: TTabSheet;
    GroupBox2: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton1: TRadioButton;
    Label10: TLabel;
    Label12: TLabel;
    DateTimePicker4: TDateTimePicker;
    DateTimePicker5: TDateTimePicker;
    DBGrid4: TDBGrid;
    Panel7: TPanel;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    DBNavigator4: TDBNavigator;
    Query4: TQuery;
    Query5: TQuery;
    Query6: TQuery;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    Query4BDEDesigner: TIntegerField;
    Query4BDEDesigner2: TStringField;
    Query4BDEDesigner3: TStringField;
    Query4BDEDesigner4: TDateField;
    Query4BDEDesigner5: TFloatField;
    Query4BDEDesigner6: TFloatField;
    Query4BDEDesigner7: TCurrencyField;
    Query4BDEDesigner8: TStringField;
    Query4BDEDesigner9: TCurrencyField;
    Query4BDEDesigner10: TMemoField;
    Query4Field: TCurrencyField;
    Query5BDEDesigner: TIntegerField;
    Query5BDEDesigner2: TStringField;
    Query5BDEDesigner3: TStringField;
    Query5BDEDesigner4: TDateField;
    Query5BDEDesigner5: TFloatField;
    Query5BDEDesigner6: TFloatField;
    Query5BDEDesigner7: TStringField;
    Query5BDEDesigner8: TCurrencyField;
    Query5BDEDesigner9: TCurrencyField;
    Query5BDEDesigner10: TMemoField;
    Query5Field: TCurrencyField;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Query7: TQuery;
    DataSource7: TDataSource;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    DataSource8: TDataSource;
    Query8: TQuery;
    Panel8: TPanel;
    Label15: TLabel;
    Label18: TLabel;
    Edit6: TEdit;
    Edit10: TEdit;
    Label21: TLabel;
    Label24: TLabel;
    Label27: TLabel;
    Edit13: TEdit;
    Edit16: TEdit;
    Edit19: TEdit;
    SpeedButton17: TSpeedButton;
    Query9: TQuery;
    Query10: TQuery;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    SpeedButton18: TSpeedButton;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    DataSource9: TDataSource;
    DataSource10: TDataSource;
    Query11: TQuery;
    Query12: TQuery;
    DBGrid7: TDBGrid;
    DBGrid8: TDBGrid;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    SpeedButton19: TSpeedButton;
    Label4: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Query13: TQuery;
    Query14: TQuery;
    Query11BDEDesigner: TIntegerField;
    Query11BDEDesigner2: TDateField;
    Query11BDEDesigner3: TCurrencyField;
    Query11BDEDesigner4: TFloatField;
    Query11BDEDesigner5: TStringField;
    Query11BDEDesigner6: TCurrencyField;
    Query11F: TCurrencyField;
    Query11Field: TCurrencyField;
    Query12BDEDesigner: TIntegerField;
    Query12BDEDesigner2: TDateField;
    Query12BDEDesigner3: TCurrencyField;
    Query12BDEDesigner4: TFloatField;
    Query12BDEDesigner5: TStringField;
    Query12BDEDesigner6: TCurrencyField;
    Query12F: TCurrencyField;
    Query12Field: TCurrencyField;
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Query1CalcFields(DataSet: TDataSet);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure Query2CalcFields(DataSet: TDataSet);
    procedure CheckBox1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure Query4CalcFields(DataSet: TDataSet);
    procedure Query5CalcFields(DataSet: TDataSet);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure Query11CalcFields(DataSet: TDataSet);
    procedure Query12CalcFields(DataSet: TDataSet);
    procedure SpeedButton19Click(Sender: TObject);

    procedure Query13CalcFields(DataSet: TDataSet);
    procedure PageControl1Change(Sender: TObject);
    procedure TabSheet5Show(Sender: TObject);
    procedure Edit3Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Edit4Click(Sender: TObject);
   


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formcha: TFormcha;

implementation

uses Unit11;

{$R *.dfm}

procedure TFormcha.Button1Click(Sender: TObject);
begin
close;
end;

procedure TFormcha.SpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure TFormcha.FormCreate(Sender: TObject);
begin
datetimepicker1.Enabled:=false;
datetimepicker2.Enabled:=false;
datetimepicker3.Enabled:=false;
datetimepicker1.Date:=(now);
datetimepicker2.Date:=(now);
datetimepicker3.Date:=(now);
radiobutton1.Checked:=true;
dbgrid4.DataSource:=DataSource4;
radiobutton4.Checked:=true;
end;

procedure TFormcha.CheckBox2Click(Sender: TObject);
begin
if datetimepicker1.Enabled=false then
datetimepicker1.Enabled:=true
else
if datetimepicker1.Enabled=true then
datetimepicker1.Enabled:=false;
end;

procedure TFormcha.SpeedButton1Click(Sender: TObject);
begin
query3.close;
query2.Close;
query1.Close;
query1.SQL.Clear;
query1.SQl.Add('Select 进货编号,货品类型,进货方式,进货时间,进货数量,赠送数量,货品单价,单位,欠款数目,信息备注');{假如输出条目}
query1.SQl.Add('FROM jin.db');
query1.SQl.Add('where 货品类型<>''''');
if(combobox1.Text<>'') then
query1.SQl.Add(' and 货品类型='''+combobox1.text+'''');
if (checkbox2.Checked) then
begin
query1.SQL.Add('and 进货时间=:riqi');
Query1.ParambyName('riqi').asdate:=DateTimePicker1.Date;
end;
if(Edit3.text<>'') then

query1.SQl.Add('and 进货数量'+edit3.text);

if(Edit2.text<>'') then

query1.SQl.Add('and 欠款数目'+edit2.text);


try
query1.Prepare;
query1.Open;
except
showmessage('进货数量或欠款数目输入有误，应为 >xxx ');
end;
end;
procedure TFormcha.Query1CalcFields(DataSet: TDataSet);
var
quantity1:single;
price1:Currency;
begin
quantity1:=query1.FieldByName('进货数量').asfloat;

price1:=query1.FieldByName('货品单价').asCurrency;

query1.FieldByName('应付款数').asCurrency:=quantity1*price1;

end;

procedure TFormcha.SpeedButton2Click(Sender: TObject);
begin
edit3.Text:='>';
edit2.Text:='>';
combobox1.Text:='';
checkbox2.Checked:=false;
datetimepicker1.Enabled:=false;
datetimepicker1.Date:=(now);
end;

procedure TFormcha.SpeedButton5Click(Sender: TObject);
begin
query3.Close;
query1.Close;
query2.Close;
query2.SQL.Clear;
query2.SQl.Add('Select 销售编号,货品类型,销售方式,销售时间,销售数量,赠送数量,单位,销售单价,欠款数目,信息备注' );
query2.SQl.Add('FROM xiao.db');
query2.SQl.Add('where 货品类型<>''''');
if(combobox2.Text<>'') then
begin
query2.SQl.Add(' and 货品类型='''+combobox2.text+'''');
end;
if (checkbox1.Checked) then
begin
query2.SQL.Add('and 销售时间=:riqi2');
Query2.ParambyName('riqi2').asdate:=DateTimePicker2.Date;