?? mryzy.pas

?? 生產(chǎn)管理系統(tǒng),有助于初學(xué)者學(xué)習(xí)小型ERP程序開發(fā).
?? PAS
字號:
unit MRYZY;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ImgList, Grids, DBGrids, StdCtrls, ComCtrls, ToolWin,
  ExtCtrls;

type
  TFRM_YZY = class(TForm)
    Panel2: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DBGrid1: TDBGrid;
    ImageList1: TImageList;
    Datalb: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_YZY: TFRM_YZY;
  tb : integer = 0;
implementation
  uses MR_DATA, MRYZY_CX;
{$R *.dfm}

procedure TFRM_YZY.FormShow(Sender: TObject);
begin
  with data.ADOa do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user');
    open;
  end;
  datalb.DataSet := data.ADOa;
  if data.ADOa.RecordCount>0 then
  begin
    edit1.Text := data.ADOa.fieldbyname('czyid').AsString;
    edit2.Text := data.ADOa.fieldbyname('czyname').AsString;
    edit3.Text := data.ADOa.fieldbyname('czymm').AsString;
  end
  else
  begin
    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
  end;
end;

procedure TFRM_YZY.ToolButton1Click(Sender: TObject);
var
   s : string;
   i : integer;
begin
    edit2.Enabled := true;
    edit3.Enabled := true;
    i := 1;
    ToolButton4.Enabled := true;
    ToolButton5.Enabled := true;
    ToolButton1.Enabled := false;
    tb := 1;
    with data.ADOa do
    begin
      close;
      sql.Clear;
      sql.Add('select * from tb_user order by czyid');
      open;
    end;
    s := 'CY'+formatdatetime('yyyymm',now());
    if data.ADOa.RecordCount<1 then
    begin
      edit1.Text := s+'00000'+inttostr(i);
    end
    else
    begin
      data.ADOa.Last;
      i := strtoint(copy(data.ADOa.fieldbyname('czyid').AsString,9,6));
      edit1.Text := s+formatfloat('000000',i+1);
    end;
    edit2.Clear;
    edit3.Clear;
    edit2.SetFocus;

end;

procedure TFRM_YZY.ToolButton4Click(Sender: TObject);
var
   yi : integer;
   ssp : string;
begin
  try
  yi := 1;
  if (edit1.Text = '')or(edit2.Text = '')or(edit3.Text = '') then
  begin
    showmessage('操作員編號、操作員名稱、密碼不能為空。');
  end
  else
  begin
    if tb = 1 then
      data.ADOa.Append;
    data.ADOa.fieldbyname('czyid').AsString := trim(edit1.Text);
    data.ADOa.fieldbyname('czyname').AsString:= trim(edit2.Text);
    data.ADOa.fieldbyname('czymm').AsString := trim(edit3.Text);
    data.ADOa.fieldbyname('czysj').AsDateTime := date();
    while yi>0 do
    begin
      ssp := inttostr(yi);
      data.ADOa.FieldByName(ssp).AsVariant := true;
      yi := yi+1;
      if yi = 12 then
        break;
    end;
    data.ADOa.Post;
    with data.ADOa do
    begin
      close;
      sql.Clear;
      sql.Add('SELECT * FROM TB_user');
      open;
    end;
  end;
  data.ADOa.First;
  edit1.Text := data.ADOa.fieldbyname('czyid').AsString;
  edit2.Text := data.ADOa.fieldbyname('czyname').AsString;
  edit3.Text := data.ADOa.fieldbyname('czymm').AsString;
  ToolButton1.Enabled := true;
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
  edit2.Enabled := false;
  edit3.Enabled := false;
  tb := 0;
  except
    showmessage('操作員名稱不能重復(fù)。');
  end;
end;

procedure TFRM_YZY.ToolButton5Click(Sender: TObject);
begin
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;
  ToolButton1.Enabled := true;
  data.ADOa.Cancel;
  with data.ADOa do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user');
    open;
  end;

  edit1.Text := data.ADOa.fieldbyname('czyid').AsString;
  edit2.Text := data.ADOa.fieldbyname('czyname').AsString;
  edit3.Text := data.ADOa.fieldbyname('czymm').AsString;
  tb := 0;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
  edit2.Enabled := false;
  edit3.Enabled := false;
end;

procedure TFRM_YZY.ToolButton8Click(Sender: TObject);
begin
  data.ADOa.First;
  ToolButton8.Enabled := false;
  ToolButton9.Enabled := false;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
  edit1.Text := data.ADOa.fieldbyname('czyid').AsString;
  edit2.Text := data.ADOa.fieldbyname('czyname').AsString;
  edit3.Text := data.ADOa.fieldbyname('czymm').AsString;
end;

procedure TFRM_YZY.ToolButton9Click(Sender: TObject);
begin
  data.ADOa.Prior;
  if not data.ADOa.Bof then
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := true;
    ToolButton11.Enabled := true;
  end
  else
  begin
    ToolButton8.Enabled := false;
    ToolButton9.Enabled := false;
    ToolButton10.Enabled := true;
    ToolButton11.Enabled := true;
  end;
  edit1.Text := data.ADOa.fieldbyname('czyid').AsString;
  edit2.Text := data.ADOa.fieldbyname('czyname').AsString;
  edit3.Text := data.ADOa.fieldbyname('czymm').AsString;
end;

procedure TFRM_YZY.ToolButton10Click(Sender: TObject);
begin
  data.ADOa.Next;
  if not data.ADOa.Eof then
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := true;
    ToolButton11.Enabled := true;
  end
  else
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := false;
    ToolButton11.Enabled := false;
  end;
  edit1.Text := data.ADOa.fieldbyname('czyid').AsString;
  edit2.Text := data.ADOa.fieldbyname('czyname').AsString;
  edit3.Text := data.ADOa.fieldbyname('czymm').AsString;
end;

procedure TFRM_YZY.ToolButton11Click(Sender: TObject);
begin
  data.ADOa.Last;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := false;
  ToolButton11.Enabled := false;
  edit1.Text := data.ADOa.fieldbyname('czyid').AsString;
  edit2.Text := data.ADOa.fieldbyname('czyname').AsString;
  edit3.Text := data.ADOa.fieldbyname('czymm').AsString;
end;

procedure TFRM_YZY.ToolButton13Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_YZY.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit3.SetFocus;
end;

procedure TFRM_YZY.ToolButton3Click(Sender: TObject);
var
  yi : integer;
  ssp : string;
begin
  yi := 1;
  if (data.ADOa.FieldByName('czyid').AsString = '') then
  begin
    showmessage('無法刪除，操作員表已經(jīng)為空。');
  end
  else
  begin
    if application.MessageBox('真的要刪除該條記錄嗎？','提示',mb_yesno) = idyes then
    begin
      data.ADOa.Delete;
      data.ADOa.First;
      edit1.Text := data.ADOa.fieldbyname('czyid').AsString;
      edit2.Text := data.ADOa.fieldbyname('czyname').AsString;
      edit3.Text := data.ADOa.fieldbyname('czymm').AsString;
      ToolButton8.Enabled := true;
      ToolButton9.Enabled := true;
      ToolButton10.Enabled := true;
      ToolButton11.Enabled := true;
      if (data.ADOa.FieldByName('czyid').AsString = '') then
      begin
         data.ADOa.Insert;
         data.ADOa.FieldByName('czyid').AsString := 'CY'+formatdatetime('yyyymm',now())+'000001';
         data.ADOa.FieldByName('czyname').AsString := 'mingrisoft';
         data.ADOa.FieldByName('czymm').AsString := 'www.mingrisoft.com';
         data.ADOa.FieldByName('czysj').AsDateTime := date();
         while yi>0 do
         begin
           ssp := inttostr(yi);
           data.ADOa.FieldByName(ssp).AsVariant := true;
           yi := yi+1;
           if yi = 12 then
             break;
         end;
         data.ADOa.Post;
         edit1.Text := data.ADOa.fieldbyname('czyid').AsString;
         edit2.Text := data.ADOa.fieldbyname('czyname').AsString;
         edit3.Text := data.ADOa.fieldbyname('czymm').AsString;
      end;
    end;
  end;

end;

procedure TFRM_YZY.ToolButton6Click(Sender: TObject);
begin
  ToolButton5.Enabled := true;
  Application.CreateForm(TFRM_YZY_CX, FRM_YZY_CX);
  FRM_YZY_CX.ShowModal;
  FRM_YZY_CX.Free;
end;

end.
?? 文件大小 3173 K
?? 上傳用戶 maryyxl
?? 所屬分類企業(yè)管理
??? 相關(guān)標(biāo)簽

#ERP #生產(chǎn)管理 #初學(xué)者
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mryzy.pas

?? 快捷鍵說明
