kc.pas

delphi 生产管理系统 sql2000位后台数据库

unit KC;

interface

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

type
  TFrm_KC = class(TForm)
    MoKuai: TADOQuery;
    DSMoKuai: TDataSource;
    BanChengPin: TADOQuery;
    DSBanChengPin: TDataSource;
    ChengPin: TADOQuery;
    DSChengPin: TDataSource;
    FuJian: TADOQuery;
    DSFuJian: TDataSource;
    GuiGe: TADOQuery;
    DSGuiGe: TDataSource;
    XingHao: TADOQuery;
    DSXingHao: TDataSource;
    DiDian: TADOQuery;
    DSDiDian: TDataSource;
    Panel1: TPanel;
    PC: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    Panel2: TPanel;
    XH0: TComboBox;
    GG0: TComboBox;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    XH1: TComboBox;
    GG1: TComboBox;
    XH2: TComboBox;
    GG2: TComboBox;
    XH3: TComboBox;
    bsSkinEdit1: TEdit;
    Nedit1: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Btnadd: TButton;
    btnmod: TButton;
    btnsave: TButton;
    btncancel: TButton;
    btndelete: TButton;
    btnreturn: TButton;
    bsSkinDBGrid2: TDBGridEh;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    bsSkinEdit2: TEdit;
    NEdit2: TEdit;
    Memo2: TMemo;
    Btnadd1: TButton;
    btnmod1: TButton;
    btnsave1: TButton;
    btncancel1: TButton;
    btndelete1: TButton;
    btnreturn1: TButton;
    DBGridEh1: TDBGridEh;
    Label11: TLabel;
    Label12: TLabel;
    bsSkinEdit3: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    NEdit3: TEdit;
    Label15: TLabel;
    edit_fhsl: TEdit;
    Label16: TLabel;
    Memo3: TMemo;
    Btnadd2: TButton;
    btnmod2: TButton;
    btnsave2: TButton;
    btncancel2: TButton;
    btndelete2: TButton;
    btnreturn2: TButton;
    DBGridEh2: TDBGridEh;
    Label17: TLabel;
    bsSkinEdit4: TEdit;
    Label18: TLabel;
    NEdit4: TEdit;
    Label19: TLabel;
    Memo4: TMemo;
    Label20: TLabel;
    Btnadd3: TButton;
    btnmod3: TButton;
    btnsave3: TButton;
    btncancel3: TButton;
    btndelete3: TButton;
    btnreturn3: TButton;
    DBGridEh3: TDBGridEh;
    DBNavigator1: TDBNavigator;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    DBGridEh4: TDBGridEh;
    DBNavigator2: TDBNavigator;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    DBGridEh5: TDBGridEh;
    DBNavigator3: TDBNavigator;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    DBGridEh6: TDBGridEh;
    procedure btnreturnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnaddClick(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
    procedure btnsaveClick(Sender: TObject);
    procedure btnmodClick(Sender: TObject);
    procedure btndeleteClick(Sender: TObject);
    procedure PCChange(Sender: TObject);
    procedure Btnadd1Click(Sender: TObject);
    procedure Btnadd2Click(Sender: TObject);
    procedure Btnadd3Click(Sender: TObject);
    procedure btnmod1Click(Sender: TObject);
    procedure btnmod2Click(Sender: TObject);
    procedure btnmod3Click(Sender: TObject);
    procedure btndelete1Click(Sender: TObject);
    procedure btndelete2Click(Sender: TObject);
    procedure btndelete3Click(Sender: TObject);
    procedure btncancel1Click(Sender: TObject);
    procedure btncancel2Click(Sender: TObject);
    procedure btncancel3Click(Sender: TObject);
    procedure btnsave1Click(Sender: TObject);
    procedure btnsave2Click(Sender: TObject);
    procedure btnsave3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Nedit1KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinDBGrid2TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure NEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure NEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure edit_fhslKeyPress(Sender: TObject; var Key: Char);
    procedure DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure btnreturn2Click(Sender: TObject);
    procedure DBGridEh2TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure NEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure btnreturn3Click(Sender: TObject);
    procedure DBGridEh3TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh4TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh5TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh6TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    { Private declarations }
    procedure WMSysCommand(var Message:TWMSysCommand);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Frm_KC: TFrm_KC;

implementation

{$R *.dfm}

uses main,share,DM;

procedure TFrm_KC.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType = SC_MINIMIZE) or (Message.CmdType = SC_RESTORE)then
     WindowState:=wsMaximized
  else
    inherited;
end;

procedure TFrm_KC.btnreturnClick(Sender: TObject);
begin
close;
end;

procedure TFrm_KC.FormShow(Sender: TObject);
begin
  runsql(mokuai,'select * from mokuai_SY order by name','open');
  runsql(Banchengpin,'select * from Banchengpin_SY order by name','open');
  runsql(chengpin,'select * from chengpin_SY order by name','open');
  runsql(fujian,'select * from fujian order by name','open');
  runsql(guige,'select * from guige order by name','open');
  runsql(xinghao,'select * from xinghao order by name','open');
  runsql(didian,'select * from didian order by sheng','open');
  pc.ActivePageIndex:=0;
  tocombobox(XH0,Frm_DM.temp,'select * from xinghao','name');
  tocombobox(GG0,Frm_DM.temp,'select * from guige','name'); 
end;

procedure TFrm_KC.BtnaddClick(Sender: TObject);
begin
//*****************初始化按钮*************
  btnadd.Enabled:=false;
  btnsave.Enabled:=true;
  btncancel.Enabled:=true;
  btnmod.Enabled:=false;
  btndelete.Enabled:=false;
  bsskinedit1.Clear;
  Nedit1.Text:='0';
  share.btn_bs:=0;
//  QMKLR.Append;
end;

procedure TFrm_KC.btncancelClick(Sender: TObject);
begin
  btnadd.Enabled:=true;
  btnsave.Enabled:=false;
  btncancel.Enabled:=false;
  btnmod.Enabled:=true;
  btndelete.Enabled:=true;
  bsskinedit1.Clear;
  Nedit1.Text:='0';
// qmklr.Cancel;
end;

procedure TFrm_KC.btnsaveClick(Sender: TObject);
begin
 if share.btn_BS=0 then
   begin
   mokuai.First;
   if mokuai.Locate('name;gg;xh',vararrayof([trim(bsskinEdit1.Text),GG0.text,XH0.Text]),[]) then
     begin
       messagebox(handle,pchar('新增产品[名称],[规格],[型号]库中已经存在,不可重复!'),'提示',64);
       exit;
     end;
   with mokuai do
     begin
       append;
       FieldValues['name']:=bsskinedit1.Text;
       FieldValues['gg']:=GG0.Text;
       FieldValues['xh']:=XH0.Text;
       FieldValues['sl']:=strtoint(Nedit1.Text);
       FieldValues['bz']:=memo1.Text;
       Post;
     end;    // with
   end;

   if share.btn_BS=1 then
     begin
       with mokuai do
         begin
           edit;
           FieldValues['name']:=bsskinedit1.Text;
           FieldValues['gg']:=GG0.Text;
           FieldValues['xh']:=XH0.Text;
           FieldValues['sl']:=strtoint(Nedit1.Text);
           FieldValues['bz']:=memo1.Text;
          Post;
         end;    // with
     end;
     btnadd.Enabled:=true;
     btnsave.Enabled:=false;
     btncancel.Enabled:=false;
     btnmod.Enabled:=true;
     btndelete.Enabled:=true;
     bsskinedit1.Clear;
     Nedit1.Text:='0';
     messagebox(handle,pchar('保存成功!'),'提示',64);
end;

procedure TFrm_KC.btnmodClick(Sender: TObject);
begin
//*****************初始化按钮*************
  if mokuai.IsEmpty then exit;
  btnadd.Enabled:=false;
  btnsave.Enabled:=true;
  btncancel.Enabled:=true;
  btnmod.Enabled:=false;
  btndelete.Enabled:=false; 

  bsskinedit1.Text:=mokuai.FieldValues['name'];
  GG0.Itemindex:=GG0.items.IndexOf(mokuai.FieldValues['gg']);
  XH0.Itemindex:=XH0.items.IndexOf(mokuai.FieldValues['xh']);
  Nedit1.Text:=inttostr(mokuai.FieldValues['sl']);
  memo1.Text:=mokuai.FieldValues['bz'];
  share.btn_BS:=1;
//  QMKLR.Edit;
end;

procedure TFrm_KC.btndeleteClick(Sender: TObject);
begin
  if mokuai.IsEmpty then exit;
  if messagebox(handle,pchar('确定要删除该记录么？'),'提示',65)=IDok then
  mokuai.Delete;
end;

procedure TFrm_KC.PCChange(Sender: TObject);
begin
 case pc.ActivePageIndex of
  0:begin
     tocombobox(XH0,Frm_DM.temp,'select * from xinghao','name');
     tocombobox(GG0,Frm_DM.temp,'select * from guige','name');
    end;
  1:begin
     tocombobox(XH1,Frm_DM.temp,'select * from xinghao','name');
     tocombobox(GG1,Frm_DM.temp,'select * from guige','name');
    end;
  2:begin
     tocombobox(XH2,Frm_DM.temp,'select * from xinghao','name');
     tocombobox(GG2,Frm_DM.temp,'select * from guige','name');
    end;
  3:begin
     tocombobox(XH3,Frm_DM.temp,'select * from xinghao','name');
    end;
 end;
end;

procedure TFrm_KC.Btnadd1Click(Sender: TObject);
begin
//*****************初始化按钮*************
  btnadd1.Enabled:=false;
  btnsave1.Enabled:=true;
  btncancel1.Enabled:=true;
  btnmod1.Enabled:=false;
  btndelete1.Enabled:=false;
  bsskinedit2.Clear;
  Nedit2.Text:='0';
  share.btn_bs:=0;
end;

procedure TFrm_KC.Btnadd2Click(Sender: TObject);
begin
//*****************初始化按钮*************
  btnadd2.Enabled:=false;
  btnsave2.Enabled:=true;
  btncancel2.Enabled:=true;
  btnmod2.Enabled:=false;
  btndelete2.Enabled:=false;
  bsskinedit3.Clear;
  Nedit3.text:='0';
  edit_fhsl.text:='0';
  share.btn_bs:=0;
end;

procedure TFrm_KC.Btnadd3Click(Sender: TObject);
begin