unit2.pas

材料管理系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, Grids, DBGrids, StdCtrls, DB, ADODB, ExtCtrls,
  DBCtrls,DateUtils;

type
  Tfrmmain = class(TForm)
    MainMenu1: TMainMenu;
    ChangPassword: TMenuItem;
    N2: TMenuItem;
    about: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    Queryycldj: TADOQuery;
    DataSource1: TDataSource;
    Querywyp: TADOQuery;
    DBGrid2: TDBGrid;
    Querylb: TADOQuery;
    Queryxgjs: TADOQuery;
    Querydhdx: TADOQuery;
    Queryjddx: TADOQuery;
    Queryhxsj: TADOQuery;
    Querydh: TADOQuery;
    Queryjd: TADOQuery;
    Button6: TButton;
    Timer1: TTimer;
    statusbar1: TStatusBar;
    DBGrid3: TDBGrid;
    Button7: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button4: TButton;
    DBGrid4: TDBGrid;
    Button11: TButton;
    Button5: TButton;
    UpDown1: TUpDown;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    UpDown2: TUpDown;
    Label5: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    Button12: TButton;
    Label7: TLabel;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    DBGrid5: TDBGrid;
    Label9: TLabel;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    DBGrid6: TDBGrid;
    Label11: TLabel;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    DBGrid7: TDBGrid;
    Label13: TLabel;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    DBGrid8: TDBGrid;
    Label15: TLabel;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    DBGrid9: TDBGrid;
    Edit1: TEdit;
    Label17: TLabel;
    UpDown3: TUpDown;
    UpDown4: TUpDown;
    Edit2: TEdit;
    Label18: TLabel;
    ComboBox1: TComboBox;
    Label6: TLabel;
    Edit5: TEdit;
    ComboBox4: TComboBox;
    Label8: TLabel;
    Edit6: TEdit;
    Label10: TLabel;
    Label19: TLabel;
    ComboBox5: TComboBox;
    Edit7: TEdit;
    ComboBox6: TComboBox;
    Edit8: TEdit;
    Label12: TLabel;
    ComboBox7: TComboBox;
    Label14: TLabel;
    Edit9: TEdit;
    ComboBox8: TComboBox;
    Label16: TLabel;
    Edit10: TEdit;
    Label20: TLabel;
    Edit11: TEdit;
    Label21: TLabel;
    Label22: TLabel;
    Edit12: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    Edit13: TEdit;
    Label25: TLabel;
    Label26: TLabel;
    Edit14: TEdit;
    Label27: TLabel;
    Label28: TLabel;
    Edit15: TEdit;
    Label29: TLabel;
    Label30: TLabel;
    Edit16: TEdit;
    Label31: TLabel;
    Button33: TButton;
    Button34: TButton;
    Label32: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    Label33: TLabel;
    DateTimePicker5: TDateTimePicker;
    DateTimePicker6: TDateTimePicker;
    Label34: TLabel;
    DateTimePicker7: TDateTimePicker;
    DateTimePicker8: TDateTimePicker;
    Label35: TLabel;
    DateTimePicker9: TDateTimePicker;
    DateTimePicker10: TDateTimePicker;
    Label36: TLabel;
    DateTimePicker11: TDateTimePicker;
    DateTimePicker12: TDateTimePicker;
    Label37: TLabel;
    PopupMenu2: TPopupMenu;
    ChangInPut: TMenuItem;
    ChangOutPut: TMenuItem;
    N4: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure aboutClick(Sender: TObject);
    procedure ChangPasswordClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
//    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet5Show(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure TabSheet6Show(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
//    procedure ComboBox2DropDown(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
//    procedure DBGrid1DblClick(Sender: TObject);
//    procedure N1Click(Sender: TObject);
//    procedure N3Click(Sender: TObject);

    procedure DBGrid1DblClick(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet7Show(Sender: TObject);
    procedure TabSheet8Show(Sender: TObject);
    procedure TabSheet9Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox4Click(Sender: TObject);
    procedure ComboBox6Click(Sender: TObject);
    procedure ComboBox5Click(Sender: TObject);
    procedure ComboBox7Click(Sender: TObject);
    procedure ComboBox8Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyPress(Sender: TObject; var Key: Char);
    procedure Button8Click(Sender: TObject);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit12KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit13KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit14KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit15KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Edit16KeyPress(Sender: TObject; var Key: Char);
    procedure Button13Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure ChangInPutClick(Sender: TObject);
    procedure ChangOutPutClick(Sender: TObject);
    procedure N4Click(Sender: TObject);
//    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
//    procedure DataToCombobox1();
  procedure DBGridColumnsWeekValues(DG:TDBGrid);
  procedure DBGridColumnsYMValues();
  end;

var              {为了尽量避免混淆,全局变量都声明在此}
  frmmain: TFrmmain;
  clclass:string;
  chukuSQL:string;


implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9,Unit1,DXRep, Report,WeekRep,
      InPut,OutPut;
{$R *.dfm}

procedure TFrmmain.DBGridColumnsWeekValues(DG:TDBGrid);
begin
  DG.Columns[0].FieldName :='cailiaoming';
  DG.Columns[0].Title.Caption := '111111';
end;

procedure TFrmmain.DBGridColumnsYMValues();
begin
end;

procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

procedure Tfrmmain.aboutClick(Sender: TObject);
begin
  Application.MessageBox('材料管理软件.'+chr(13)+chr(10)+'2006 BETA','关于',MB_OK);
end;

procedure Tfrmmain.ChangPasswordClick(Sender: TObject);
begin
  FrmChangePassword := TFrmChangePassword.Create(nil);
  FrmChangePassword.ShowModal;
  FreeAndNil(FrmChangePassword);
end;

procedure Tfrmmain.Button1Click(Sender: TObject);
begin //材料属于那类由程序录入
  Frmxincailiao := TFrmxincailiao.Create(nil);
  Frmxincailiao.ShowModal;
  FreeAndNil(Frmxincailiao);
end;

//procedure Tfrmmain.Button2Click(Sender: TObject);
//var
//  Query1:TADOQuery;
//begin
//  Query1 := TADOQuery.Create(nil);
//  Query1.ConnectionString := ADOConnection1.ConnectionString;
//  Frmxiugaicailiao := TFrmxiugaicailiao.Create(nil);
//  Query1.Close;
//  Query1.SQL.Clear;
//  Query1.SQL.Add('select * from cailiao');
//  Query1.Open;
//  frmxiugaicailiao.edit1.Text := Query1.fieldbyname('cailiaoming').AsString;
//  frmxiugaicailiao.edit2.Text := Query1.fieldbyname('guigexinghao').AsString;
//  frmxiugaicailiao.edit3.Text := Query1.fieldbyname('danwei').AsString;
//  frmxiugaicailiao.edit4.Text := Query1.fieldbyname('danjia').AsString;
//  frmxiugaicailiao.DateTimePicker1.Date := Query1.fieldbyname('riqi').asdatetime;
//  FreeAndNil(Query1);
//  Frmxiugaicailiao.ShowModal;
//  FreeAndNil(Frmxiugaicailiao);
//end;

procedure Tfrmmain.Button3Click(Sender: TObject);
begin
  if dbgrid1.SelectedRows.Count > 0 then
    if application.MessageBox('是否删除选中的记录?', '删除',MB_ICONQUESTION OR MB_OKCANCEL OR MB_DEFBUTTON2) =
      IDOK then
    begin
      dbgrid1.SelectedRows.Delete;
      dbgrid1.SelectedRows.Clear;
    end;
end;

procedure Tfrmmain.Button4Click(Sender: TObject);
begin
  Frmduixiaodengji := TFrmduixiaodengji.Create(nil);
  frmduixiaodengji.Caption := '低耗对销';
//  DataToCombobox1;
  Frmduixiaodengji.ShowModal;
  FreeAndNil(Frmduixiaodengji);
end;

procedure Tfrmmain.Button5Click(Sender: TObject);
begin
  Frmduixiaodengji := TFrmduixiaodengji.Create(nil);
  Frmduixiaodengji.caption := '机电对销';
//  DataToCombobox1;
  Frmduixiaodengji.ShowModal;
  FreeAndNil(Frmduixiaodengji);
end;

procedure Tfrmmain.TabSheet1Show(Sender: TObject);
begin
  if NotRight = True then
  begin
    button1.Enabled := False;
    Button2.Enabled := False;
    Button3.Enabled := False;
    N1.Enabled := False;
    N3.Enabled := False;
  end;
  frmmain.Queryycldj.Connection:=adoconnection1;
  datasource1.DataSet := queryycldj;
  frmmain.Queryycldj.Active := true;
  button2.Enabled:=false;
  button3.Enabled:=false;
//
//  combobox2.Items.Add(queryycldj.FieldList);
end;

procedure Tfrmmain.Timer1Timer(Sender: TObject);
begin
  statusbar1.Panels[2].Text := datetostr(date) + '  ' + timetostr(time);
end;

procedure Tfrmmain.TabSheet2Show(Sender: TObject);
begin
  if NotRight = TRUE then
  begin
    Button9.Enabled     := False;
    Button10.Enabled    := False;
    ChangInPut.Visible  := False;
    ChangOutPut.Visible := False;
  end;

  //frmmain.Querywyp.Connection:=adoconnection1;
  clclass := '外延片';
  DBGrid2.Refresh;
//  showmessage(clclass);
//  DateTimePicker1.DateTime := Date();
//  DateTimePicker2.DateTime := Date();
  frmmain.DataSource1.DataSet := querywyp;
  frmmain.querywyp.Active := true;
end;

procedure Tfrmmain.TabSheet5Show(Sender: TObject);
begin
  if NotRight = True then
  begin
    Button4.Enabled := False;
  end;
  UpDown1.Position := MonthOfTheYear(Date());
  UpDown3.Position := YearOf(Date());
  clclass := '低耗对销';
  datasource1.DataSet := querydhdx;
  querydhdx.Active := true;